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MICRO PLUS is a 6502-based Single Board Computer with 
extensive video capabilities, communications support and keyboard 
interface. As an OEM Building Block, it allows selection of the keyboard, 
onitor. enclosure and power supply best suited to your application. As an 
itelllgant Terminal, it provides full RS232 and 20 mA communication at baud rates j 
om 50 to 19.2K, with superior text-editing features. It may be combined with FLEX) 
PLUS to form a Sophisticated System with 8" and 5VS " diskettes, an IEEE-488 controller, 
numerous I/O ports, up to 56K memory, and an optional 6809 microprocessor. 




Video Features: 

• Programmable screen format 
up to 1 32 characters by 30 lines 

• Reverse video on character-by- 
character basis 

• EPROM character set for user- 
definable characters 

• RAM character set for 
dynamically changing characters 
under program control 

• Light pen input 

• Programmable character width 

• Up to 4K display memory 



Communications Features: 

• Programmable baud rates from 
50 to f 9.2K baud 

• Parity generation and checking 

• Programmable word length and 
stop bits 

• Full-duplex or half-duplex 
operation 

• Both RS232C and 20-milliamp 
current loop interfaces provided 

• ASCII keyboard interface 




Monitor Features: 

• Memory examine and modify 

• Auto-increment mode 

• Single-step 

• Break at specified address 

• Rrpak on SDecified od code 



Editor Features: 

• Cursor up, down, left 
home 

• Scroll up/down 

• Insert/delete line or char 

• Fill/clear line or window 

• Find character 

• Set/clear window limits 



System Features: 

• Up to 7K RAM— 4K di 
RAM, 2K programmable char- 
acter generator RAM (which 
may be used for program RAM), 
1 K program RAM 

• MicroMon 2 operating system 
software in EPROM 

-;• Can be directly expanded with 
DRAM PLUS, FLEXI PLUS and 
PROTO PLUS 

• Single voltage required + 5V 




Call or write for free catalog. 
Lejjjs build your custom system. 

34 Chelmsford St., Chelmsford, MA 01824 
617/256-3649 



® 
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MICRO PLUS TCB-1 1 1 $375 

Communications option 50 

Documentation 10 

For US, add $3.00 surface postage. 
Prices quoted are for US only. For 
foreign shipments write for rates. 
Massachusetts residents add 5% sales 
tax. 




Turn your Apple into the world's 
most versatile personal computer. 



The SoftCard™ Solution. SoftCard 
turns your Apple into two computers. 
A Z-80 and a 6502. By adding a Z-80 
microprocessor and CP/M to your 
Apple, SoftCard turns your Apple into 
a CP/M based machine. That means 
you can access the single largest body 
of microcomputer software in exist- 
ence. Two computers in one. And, the 
advantages of both. 

Plug and go. The SoftCard system 
starts with a Z-80 based circuit card. 
Just plug it into any slot (except 0) of 
your Apple. No modifications required. 
SoftCard supports most of your Apple 
peripherals, and, in 6502 -mode, your 
Apple is still your Apple. 

CP/M for your Apple. You get CP/M 
on disk with the SoftCard package. It's 
a powerful and simple-to-use operating 
system. It supports more software 
than any other microcomputer operat- 
ing system. And that's the key to the 
versatility of the SoftCard/Apple. 

CIRCLE READER SERVICE NUMBER 



BASIC included. A powerful tool, 
BASIC-80 is included in the SoftCard 
package. Running under CP/M, ANSI 
Standard BASIC-80 is the most 
powerful microcomputer BASIC 
available. It includes extensive disk I/O 
statements, error trapping, integer 
variables, 16-digit precision, exten- 
sive EDIT commands and string func- 
tions, high and low-res Apple graphics, 
PRINT USING, CHAIN and COM- 
MON, plus many additional com- 
mands. And, it's a BASIC you can 
compile with Microsoft's BASIC 
Compiler. 

More languages. With SoftCard and 
CP/M, you can add Microsoft's ANSI 
Standard COBOL, and FORTRAN, or 



Basic Compiler and Assembly Lan- 
guage Development System. All, more 
powerful tools for your Apple. 
Seeing is believing. See the SoftCard 
in operation at your Microsoft or Apple 
dealer. We think you'll agree that the 
SoftCard turns your Apple into the 
world's most versatile personal 
computer. 

Complete information? It's at your 
dealer's now. Or, we'll send it to you 
and include a dealer list. Write us. Call 
us. Or, circle the reader service card 
number below. 

SoftCard is a trademark of Microsoft. Apple II and 
Apple II Plus are registered trademarks of Apple 
Computer. Z-80 is a registered trademark of Zilog, 
Inc. CP/M is a registered trademark of Digital 
Research, Inc. 




CONSUMER^ PRODUCTS 



Microsoft Consumer Products, 400 108th Ave. N.E., 
Bellevue, WA 98004. (206) 454-1315 
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CBIVI W The Integrated 

' Visible Memory for 
the PET has now been 
redesigned for the new 
12" screen 80 column 
and forthcoming 40 
column PET computers 
from Commodore. Like 
earlier MTU units, the 
new K-1 008-43 package 
mounts inside the PET 
case for total protection. 
To make the power and 
flexibility of the 320 by 200 
bit mapped pixel graphics display easily accessible, we have 
designed the Keyword Graphic Program. This adds 45 
graphics commands to Commodore BASIC. If you have been 
waiting for easy to use, high resolution graphics for your 
PET, isn't it time you called MTU? 

K-1008-43M Manual only $10 (credited toward purchase) 
k-1008-43 Complete ready to install package $495 

Mastercharge and Visa accepted 

Write or call today for our full line catalog describing all 
MTU 6502 products, including our high speed 8" Floppy 
Disk Controller for up to 4 megabytes of PET storage. 
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Micro Technology Unlimited 
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NOW 80 COLUMN PETS CAN HAVE MTU HIGH RESOLUTION GRAPHICS 
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DATA CAPTURE 4.0 

The most advanced and easiest to use telecommunications program for use 
with the MICROMODEM II® or the Apple COMMUNICATIONS CARD® 



Q, Will DATA CAPTURE 4.0 work with my Communica- 
tions Card® and a modem? 

A. It makes using the Comm.. Card almost as easy as using 
the Mieromoderri 8. 

Q. Do I rreed an extra editor to prepare text for transmis- 
sion to another computer? 

A. No. DATA CAPTURE 4.0 gives you control of the text 
buffer. You can use DATA CAPTURE 4.0 to create text. 

Q. Can I edit the text t have prepared? 

A. Yes. You can insert lines or delete any lines from the text. 

0. How about text I have captured. Can I edit that? 

A. As easily as the text you have prepared yourself. You can 
delete any lines you don't want to print or save to a disk file. 
You can also insert lines into the text. 

Q. Just how much text can J capture with DATA 
CAPTURE 4.0? , - 

A If the system with yittch you are communicating accepts a 
stop character, most use a Control S, you can capture an 
unlimited amount of text. 

Q. How does mat work? And do I have to keep an eye on 
how much l have atready captured? 

A. When the text buffer is fuH the stop character is output to 
the other system. Then DATA CAPTURE 4.0 writes what 
has been captured up to that point to a disk file. This is 
done automatically; 

Q, Then what happens? 

A. Control is returned to you and you can send the start 
character to the other system. This generally requires 
pressing any key, the RETURN key or a Control Q. 

Q. Are upper and lower case supported if I have a Lower 
Case Adapter? 

A. Yes. If you don't have the adapter an upper case only 
version is also provided on the diskette. 

Q. Do I need to have tny printer card or Micromodem It** 
or Communications Card** in any special slot? 

A. No. All this is taken care of when you first run a short 
program to configure DATA CAPTURE 4.0 to your system. 
Then you don't have to be concerned with it again. If you 
move your cards around later you can reconfigure DATA 
CAPTURE 4.0. 

Q. Do I have to build a file on the other system to get it 
sent to my Apple? 

A. No. If the other system can list it you can capture it. 

Q. How easy Is It to transmit text or data to another 
system? 

A. You can toad the text or data into DATA CAPTURE 4.0 
from the disk and transmit it. Or you can transmit what you 
have typed into DATA CAPTURE 4.0. 

a How can I be sunt the other system reoatvas what t 
send it? 

A. If the other system works in Full Duplex, it 'echoes' what 
you send it, then DATA CAPTURE 4.0 adjusts its sending 
speed to the other system and won't send the next charac- 
ter until it is sure the present one has been received. We 
call that 'Dynamic Sending Speed Adjustment'. 

Q. What H the other system works only In Half Duplex. 

A. A different sending routine is provided for use with Half 
Duplex systems. 

Q. What If I want to transmit a program to the other 
system? 

A. No problem. You make the program into a text Trie with a 
program that is provided with DATA CAPTURE 4.0. load it 
into DATA CAPTURE 4.0 and transmit H. 
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What type files can I read and save with DATA 
CAPTURE 4.0? 

Any Apple DOS sequential text file. You can create and 
edit EXEC fifes, send or receive VISCIAIC© data files, 
send or receive text files created with any editor that uses 
text files. ; 

Can t leave DATA CAPTURE 4,0 running on my Apple 
at home and use it from another system? 

Yes. If you are using the Micromodem \t®> you can call 
DATA CAPTURE 4.0 from another system. This is handy if 
you are at work and want to transmit something to your 
unattended Apple at home. 

Where cart f buy DATA CAPTURE 4.0? 

Your local Apple dealer, tf he doesn't have tt ask him to 
order it. Or if you can't wait order it directly from Southeast- 
ern Software. The price is S65.00. To order the Dan 
Paymar Lower Case Adapter add $64.95 and include the 
serial number of your Apple. 

If I order it directly how can I pay for it? 

We accept Master Charge, Visa or your personal check. 
You will get your order shipped within 3 working days of 
when we receive it no matter how you pay for tt. Send your 
order to us at the address shown or call either of the 
numbers in this advertisement. You can call anytime of 
day, evening or Saturdays. 

I bought DATA CAPTURE 3.0 and DATA CAPTURE 4.0 
sounds so good I want this version. What do I do to 
upgrade? 

Send us your original DATA CAPTURE 3.0 diskette and 
documentation, the $35.00 price difference and $2.50 for 
postage and handling. We wHi send you DATA CAPTURE 
4.0 within 3 working days of receiving your order. 

What kind of support can I expect after I buy It? 

If you have bought from Southeastern Software in the past 
you know we are always ready to answer any questions 
about our products or how to use them. 



RequiresDISKIr»,Applesoftlr»and48Kof Memory 

DATA CAPTURE 4.0© 

Copynghtrc 1 . 1980-Southeastern Software 

• Apple* Apple II Plus". Dwk ll» and APPLESOFT II" am trademarks o) Apple 
Computer Company. 

• Micromodem lr» a a trader™* of D.C Hayes Aasooana. Mc 

• ViatcaicrgtCopynght 6y Software Arte. Inc 



We welcome your person?! 
check. We also accept Visa and Master Charge. 



Southeastern Software 



OeptMK 

6414 Derbyshire Drive • New Orleans, LA 70126 

504/246-8438 504/246-7937 
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Editorial 



The Changing Scene 

With this issue, MICRO completes 
its fourth volume. This fact inspired 
me to spend some time reviewing 
MICRO'S past, its position now, and its 
future. 

The Past 

The microcomputer world of 1977 
was very different from today. The first 
wave of microcomputerists— the hard- 
ware types who could build a system 
from a Kit or scratch— has started to 
decline in numbers and in importance. 
A second generation has emerged, com- 
posed of individuals with computer 
knowledge who are not interested in 
building a microcomputer. Early pur- 
chasers of the 6502 were true pioneers. 
There was no certainty that the new 
6502 would survive in the already 
established 8080/6800 world. There 
was little vendor support for the 6502, 
no books, and mysteriously little 
material appearing about it in national 
computer magazines. 

MICRO was started to provide a for- 
mal, regular publication with provision 
for quality 6502-based advertising. Early 
MICRO articles- discussed basic prob- 
lems encountered in getting systems to 
operate, and presented new 6502-based 
products. MICRO was aimed at the 
knowledgeable user who possessed 
some programming skills, but might be 
a novice in the microcomputer field. 



The Present 

Four years have witnessed the ex- 
plosion of the Apple II, the addition of 
the AIM, SYM, Atari, OSI Superboard 
and Challenger systems, and the 
growth of the PET/CBM systems. Now 
thousands of programs are available. 
The 6502 has moved from a poor third, 
behind the 8080 and 6800 in the per- 
sonal computing market, to a strong 
position ahead of both of these pro- 
cessors and equal to the Z80. Support 
for the 6502 is much broader now. 
There are many magazines devoted to 
the 6502 or one of its microcomputers; 
major microcomputer national maga- 
zines now offer 6502-related material 
on a regular basis; book shelves are well 
stocked with 6502 books. 

The needs of today's 6502 users are 
changing. They are not buying a micro 
to get into microcomputers— they are 
buying micros to solve problems. To- 
day's users are buying larger systems, 
and may require 80-character upper and 
lower case displays, quality keyboards, 
sophisticated disk systems, printers 
and more. They need ready-to-use soft- 
ware, and are willing to pay for it. 

To serve this expanded 6502 
population, MICRO has made many 
changes over the years, including the 
addition of news and idea columns. 
MICRO now includes articles which 
are less technical in nature, plus 
generalized material applicable to a 
number of microcomputers. 



The Future 

The microcomputer market will 
continue to change. Manufacturers are 
aiming many new products at the 
business market and microcomputers 
are now regularly advertised on the 
financial pages of major newspapers 
and are featured in radio promotions. 



The new Apple HI and CBM pro- 
ducts are definitely for the business- 
man, not the "hacker." These business 
users will require different levels of 
support than the current users. 

Another group of users emerging is 
the consumers— the home market. The 
Atari, VIC, and Intellivision are based 
on pre-programmed packages which re- 
quire no user modification or program- 
ming. Anyone can use them, instantly! 

We have some ideas which will be 
implemented in MICRO over the com- 
ing months. These include "bonus" 
sections providing focused coverage of 
particular topics such as graphics, pro- 
gramming languages, games, printers, 
disk systems, art, business, education, 
and expanded coverage of the Apple, 
PET/CBM, and other systems. We are 
planning a MICROScan section which 
will provide a systematic evaluation of 
products within an area. We expect to 
cover the new microprocessors which 
may gradually supplant the 6502; as the 
processors change, our readers will be 
kept informed. 

I am sure there are many other areas 
in which MICRO can help serve its 
readers. The staff of MICRO is very in- 
terested in hearing from you. Please 
write and let us know about your in- 
terests, how your use of the micro- 
computer is changing, and how we at 
MICRO can continue to support your 
efforts. 
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Robert M. Tripp 
Editor/Publisher 
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Information Retrieval 

The cover depicts an information retrieval 
application in which a photographer with a 
collection of many photographs needs to 
select a subset of particular categories. 
These could include black and white or col- 
or; a slide, negative, print or other; where it 
had been previously published; etc. 
Categories dealing with subject matter 
could be broken down to include 
indoor/outdoor, people/scenic, day/night, 
and others. A data base would consist of in- 
dividual records with FLAGS and a portion 
which would contain other information 
about the photo for sorting purposes. For ex- 
ample, the photographer could request 
photos which are in color (C), scenic (S), 
outdoor (O), and so forth, skipping 



categories which he does not wish to select 
by entering a question mark. He could fur- 
ther select the fields of each record by speci- 
fying key words which are to be matched 
once a record has passed the basic FLAG 
tests. The tests can be combined and can be 
as complex as necessary. 

Does this all sound very difficult? Not at 
all. A system with all of these features, and 
more, was implemented on a KIM-1 with 
IK of RAM. It provided six tests on the 
FLAGS and one test on each of six data 
fields in the record. It provided up to 900 
entries on a single 30-minute cassette tape. 
The information retrieval process can be 
applied to almost any data base. 

(Photo by Loren Wright.) 
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Letterbox 



MICRO'S February editorial, "Too 
Many Apples!" bzought us a flood of 
responses. Here are just a few of the let- 
ters offering comments and suggestions 
on our Apple backlog problem. 



Dear Editor: 

In regard to the editorial "Too 
Many Apples!" my solicited comment 
as an avid reader of your magazine is 
this: as an amateur futurologist, I 
predict your editorial of February 1983 
will be entitled: "Too Many PETs!" 

It appears to me possible that the 
$299 VIC 20 by Commodore may have 
sold well over a million units by that 
date and you will have an unwieldy ex- 
cess of good articles on this machine! 

George Earl 

1302 South General McMullen 

San Antonio, Texas 78237 



Dear Editor: 

I have been reading and enjoying 
MICRO for several years, and have all 
the issues since the beginning. I have 
seen the magazine grow in size and 
quality, and consider it my favorite of 
several magazines I read regularly. 

This letter is in response to your 
editorial, "Too Many Apples!" My first 
microcomputer was an AIM- 65, and I 
enjoyed reading MICRO, because it 
didn't ignore the board level computer. 
Now I have an Apple n, and I can ap- 
preciate your concern about giving 
equal coverage to all the 6502-based 
systems. 

Of the six options suggested in the 
editorial, allocating a larger portion of 
MICRO to Apple, I believe, is fair since 
it is the most popular 6502-based 
computer, and by your own admission, 
has the most articles available. The 
addition of 16 to 32 extra pages is 
something which is inevitable, if the 
past growth of MICRO is any 
indication. 



I think the Apple is the best 
6502-based micro on the market, 
(that's why I bought it), and I think it is 
natural for it to receive extraordinary 
coverage. Also, I still enjoy, and learn, 
from the hardware articles which 
appear in MICRO (such as Marvin 
De Jong's article on the 6522), and if 
you were to publish a separate 
magazine only on the Apple, I probably 
would subscribe to it, but would drop 
MICRO, and would miss the 'hardware 
stuff.' Since MICRO is the 6502 jour- 
nal, it would be a shame to divide it in- 
to a lesser pair of magazines. 

Keep up the good work on MICRO, 
and don't be afraid to 'overload' with 
Apple stuff — there are a lot of Apples 
out here! 

Edward Janeczek 
6121 Carnation Road 
Dayton, Ohio 45449 



Dear Editor: 

I have been an avid reader of 
MICRO since Issue #7, and it has never 
been better than it is today. I'd like to 
congratulate you on the vastly improved 
appearance of the magazine. The typo- 
graphy is far better than it used to be 
before last December. 

I own an Ohio Scientific C1P, and I 
was interested in your February 
editorial about your surfeit of Apple 
articles. One of the reasons I like 
MICRO so well is that there are a 
number of articles every month that I 
can use with my own computer. I 
would hate to see MICRO become 
devoted entirely to the members of the 
Apple corps. Still, I have always felt 
more of a kinship to the Apple and KIM 
owners than to the PET owners, who 
seem to dominate other magazines. 

So what should MICRO do? Hard- 
ware is interesting, particularly general 
purpose "how I connected a DAC to 
my 6522" material. General short 6502 
software ("how to convert ASCII to 
EBCDIC in seven bytes of code") is 
usually interesting, but you shouldn't 
include any listings that are more than 
a page. Avoid "POKE 67 into location 
$E5 on your Apple and see what hap- 
pens!" articles. Don't assume that 
everyone has dual disk drives and a 
Diablo printer. Avoid large turn-key 
type software for specific systems. 
(Nobody out here really cares about 
small business software, you know. 
Some people think that computers- 



small computers, that is— should be 
useful for something, and we really 
ought to be able to help the small 
businessman drop $5,000 or $10,000 on 
small computer hardware and a like 
amount on software.) What we want to 
read about is systems software, and 
FORTH, and UNIX, and C, and bubble 
memories, and Winchester disk drives 
that cost less than $500, and color 
graphics systems, and music syn- 
thesizers, and Dragons and Dungeons, 
and Ethernet, and good text editors, 
and material like that. 

John P. Sohl 

20446 Orey Place 

Canoga Park, California 91306 



Dear Editor: 

You backed me into a corner. When 
I looked toward the right, I saw the en- 
ticement to renew for another year at 
the $15 rate. When I looked toward the 
left, I saw an ever-expanding Apple 
orchard. 

I'm a single board man. I have a 
KIM and an AIM. I enjoy that level of 
computing. I'm not ignorant of the 
capabilities of a larger system — I also 
have a TRS-80 Level n. I get my 
satisfaction out of making a $200 KIM 
do the same things a $2000 Apple can 
do (almost!). 

In your editorial, you asked for 
opinions. I look to MICRO for ASK 
articles. I've been with you since Issue 
#1. I've seen the larger systems come 
down in price and increase in popu- 
larity. The days of every computer hob- 
byist knowing what a KIM is are gone. 

Those days are gone, but your 
readers, like myself, are not. I don't ask 
for 100% ASK articles— that would be 
unrealistic. What I do ask is that you 
keep the same carefully planned 
balance that you struck in Issue 33. If 
you find yourself overloaded with ex- 
cellent Apple articles, by all means, 
publish them. But, go with the Apple 
supplement idea— that looks best to 
me. This assumes that others, like 
myself, will continue to keep you fed 
with good articles on the various other 
systems. If that fails, you have no 
choice other than to become the 
"MICROApple." 

Jody Nelis 

132 Autumn Drive 

Trafford, Pennsylvania 15085 



(Continued on page 16) 
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pMNBOW 
fllR. |cr% presents our valuable free 

catalog (over 100 pages). He PROMPTS you 
to peek at the latest collection of 
software and hardware 
products for your APPLE ll™ 




A STELLAR TREK 

the definitive Hi-Res 

color version of the classic 

Startrek game. Three 

different Klingon opponents. 

Many command prerogatives 

from use of weapons to 

repair of damages. Needs 

48K Applesoft ROM. 

Disk... $24.95 



VERSAWRITERII 

A drawing tablet, 

simply plugs into your 

game I/O port. Trace, draw, 

design, or color any type of 

graphic. Adds words to 

pictures. Creates schematics. 

Computes Distance/Area of any 

figure. New - fill any area 

on the screen in seconds with 

over 100 different and 

distinct colors^ Needs 32K 

Applesoft ROM and disk 

drive. A bargain at. 

$249.95 



BOWLING DATA 
SYSTEM 

This data mangement 

program provides accurate 

record keeping and report 

generation for bowling leagues 

of up to 40 teams with 

6 bowlers per team. 

Needs 80-column printer, 

32K Applesoft ROM. 
Disk... $79.95 



SUPER SOUND 

Musical rhythms, 
gunshots, sirens, laser blasts, 
explosions . . . add these and 

many more exciting 

sounds to your Apple. Use 

them in your programs, 

or create your own 

super sounds. Needs 

16K Applesoft. 
Have a blast for only 

$12.95... Tape 
$16.95... Disk 



ADD $2.00 U.S. $10.00 FOREIGN FOR SHIPPING 
CALIFORNIA RESIDENTS ADD. 6% SALES TAX 



Open Tues. -Sun. 



Don't see what you want 
here, then write or call 
today for your free 
catalog, we're saving 
one just for you. 

Visa/Mastercharge welcome. 




GARDEN PLAZA SHOPPING CENTER 
9719 RESEDA BOULEVARD DEPT. 1MI 
NORTHRIDGE, CALIFORNIA 91324 
PHONE (213) 349-0300 
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ARE YOU DEVELOPING 
SHIFTKEY SCHIZOPHRENIA? 




o 



Cure it with the lower case system from MBZer* 

JfcyMt€R O SYGTCMsJ ) 



The Keyoard +Plus from Laser Microsystems turns 
your Apple's shift key into a . . . shift key! 

The Keyboard +Plus transforms your Apple's 
upper case only keyboard into a typewriter style 
keyboard capable of entering all 128 ASCII 
characters into your DOS, Pascal, and CP/H 
applications programs. The use of the shift key is 
automatic with most programs. You do not have to 
write complicated "driver programs" or fuss with 
obscure "BIOS Batches" in order to fully utilize 
this board. For those situations where upper case 
only input is desired, the Keyboard +Plus supports 
a caps lock mode that returns the Apple keyboard 
to it's former state. 



Best of all, the keyboard +Plus features a 
typeahead buffer that gives you the ability to 
continue typing even though the computer is busy 
performing other tasks such as accessing the disk. 

The keyboard +Plus is the second component of 
Lazer Microsystems' lower case system. When teamed 
with the Lazer Microsystems' highly praised Lower 
Case +Plus, the lower case system turns your Apple 
into a sophisticated, user oriented, problem 
solving machine. 

See the Lazer Microsystems' lower case system 
at your local Apple dealer. If he is all out, you 
can order direct from us. 




P.O.Box 55518 
Riverside, Calif. 92517 
(714) 682-5268 

* Keyboard +Plus $119.95 

* Lower Case +Plus $69.95 

* Calif residents add 6% tax. 
Shipping & extra handling 

fo cTJ W ? ka eXt " *°* ^ecks 

* J2/5i« r " ( P erson *l ' business) 
n^K A acce P fced - include card 
number, exp date, and signature. 



© 



Lower Case +Plus, Keyboard +Plus and +Plus are all trademarks of Lazer Microsystems Inc. 
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MacApple 






This routine allows substitution 
of unreserved control keys as 
shorthand for commonly used 
Integer BASIC commands. Since 
It is table driven, extension to 
Applesoft or machine language 
is possible. 



David Lubar 

249 Loring Ave., Apt. 3 

Edison, New Jersey 08817 



The program "Applesoft Shorthand" 
(23:5) was impressive. Here was a way 
to shorten those long hours spent 
thrusting two fingers at the keyboard. I 
had several long programs to enter the 
other night, but they were in Integer 
BASIC. This left two choices; wait un- 
til MICRO published what I needed, or 
write it myself. I took the second op- 
tion. The program (minus the one bug 
which kept me up until 6:30 a.m. on a 
bleary Sunday) is described in the 
following article. Since I didn't have 
the locations of Integer's keywords, I 
took another approach, making a table 
from which the keywords are printed. 
While this lengthens the program, it 
also gives the program multilingual 
potential — by changing the table, you 
can use it with Applesoft or even 
assembly language. 

Using MacApple 

MacApple loads from $1000.$1131. 
The table goes up to $10CF followed by 
a $62 byte program. Turn it on with a 
CALL 4383, off with a CALL 4393. 
Once MacApple is turned on, any con- 
trol key which is not reserved will pro- 
duce a keyword. Using the $1000 area 
allows the program to lie between a 
BASIC program and the variable table. 
This way, you can leave it in memory 
while entering and modifying BASIC 
programs. 



How It Works 

The table contains the ASCII values 
of the keywords. The end of an entry is 
signalled with a null character ($80). 
With a range of 26 letters, eight 
characters per letter seemed like a good 
amount of storage. The CALL 4383 
changes the pointers at $38, $39, caus- 
ing the monitor to go to MacApple 
instead of the normal KEYIN routine. 
At the start of MacApple, the KEYIN 
routine is duplicated in part, without 
the portion that increments the ran- 
dom number. If the ASCII value of the 
character entered is less than $9B, it is 
a control character. Other characters 
are sent back to KEYIN at the point 
where the strobe is reset. From there, 
they follow the normal path into the 
buffer and onto the screen. 



For control characters, a check has 
to be made. Certain of these characters 
should be left alone. For example, 
control-M is the carriage return. This, 
obviously, is needed. The front and 



back arrows, controls U and H, were 
also left alone. The other reserved con- 
trol characters, B, C, D, and X, aren't 
essential, but I left them alone, giving 
the user the option to do as he wishes. 
Once you're in BASIC, control-B isn't 
needed. Control-C can be replaced with 
a JSR from the monitor. Its other func- 
tion, stopping a program, can be re- 
placed with a brute-force RESET, 
though you lose the ability to see where 
the program stopped. Control-D is left 
free for disk users. Instead of control-X, 
you can cancel a line by adding a syntax 
error. 

You can check for these reserved 
characters by the series of CMP's and 
BEQ's. The checks are written in 
ascending order. The program can be 
speeded up (for those of you who can 
count microseconds) by placing the 
most common ones (controls M, H, 
and U] at the top of the series. 

Once an input passes this far, the 
heart of the program goes into action. 
First, the ASCII value is reduced from a 







Table 1 




Control Key 


Result 


Control Key 


Result 


A 


ASC(" 


N 


NEXT 


B 


reserved 


O 


COLOR 5 


C 


reserved 


P 


PRINT 


D 


reserved 


Q 


PLOT 


E 


PEEK 


R 


RETURN 


F 


POKE 


S 


SCRN( 


G 


GOTO 


T 


THEN 


H 


reserved 


U 


reserved 


I 


INPUT 


V 


VLIN 


I 


GOSUB 


W 


HLIN 


K 


CALL 


X 


reserved 


L 


LEN( 


Y 


REM 


M 


reserved 


Z 


DIM 


Note: Though not all keywords could be paired with their initial letter, an 


attempt was made to produce a meaningful relation. For < 


example, to remember 


that f produces 


GOSUB, just 


think of GOSUB as JSR. Pairs were placed 


together when possible (VLIN, 


HLIN and PEEK, POKEj 
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range of $81-$9A to a range of $00-$19. 
Next, this value is multiplied by 8 with 
three ASL's. These steps result in a 
pointer to the character table. The 
pointer is put into the Y register. The A 
register is loaded with DATA, Y, getting 
the first character for the desired 
keyword. This character is compared to 
$80. If it isn't $80, the character is 
stored in the input buffer and sent to 
the screen through the COUT1 routine 
in the monitor (FDFO). 

Note: No check is made to see if the 
buffer has been filled. If a keyword puts 
the buffer count too high, it will do a 
hatchet job on the line and begin filling 
the buffer from the start. Just keep this 
limitation in mind and there will be no 
problems. 



After this, Y is incremented to point 
to the next character in the table, and X 
is incremented to point to the next 
location in the buffer. Once the 
keyword has been output, there is an 
$80 in the A register. It might seem 
that there would be no harm in sending 
this null character out. In most cases, 
this is true. But it could cause prob- 
lems. For example, the ASC function 
returns the value of the first character 
after the quote. If $80 is sent out, it 
won't be on the screen, but it will 
become the argument for the ASC func- 
tion. No matter what letter follows, 
BASIC will return a decimal value of 
128. To avoid this, the routine clears 
the strobe, resets the cursor, and goes 
back for the next input. If the cursor 
isn't reset withLDY 24, strange things 
happen. Try deleting this command. 
Then, in BASIC with MacApple turned 
on, enter the control keys for PRINT 
followed by ASC(". (Control-P, 
control- A.) The next key entered will 
cause the T in PRINT to turn into a @. 

The Table 

Changing the keywords, either for 
Integer or for other languages, is sim- 
ple. You can either step through the 
monitor or go directly to an entry. To 
step through the monitor, enter FFF 
and hit RETURN. Hitting RETURN 
again will cause a list of bytes 
$1000-$1007. These locations contain 
the keyword printed by control-A. Each 
RETURN will advance to the next let- 
ter, up to $10C8-$10CF, which is the 
location for control-Z. If you don't feel 
like stepping through. the monitor, use 
the following method. Take the letter 



0800 


******************* 




0800 


i * 




* 




0800 


, * 


MACAPPLE 


* 




0800 


■* BY 


DAVID LUBAR 


* 




0800 


: * 




* 




0800 


****************** 




08.00 


* 








0800 


* 








0800 CH 


EPZ $24 






0800 BASL 


EPZ $28 






0800 KSWL 


EPZ $38 






0800 KSWH 


EPZ $39 






0800 


N 


EQU $200 






0800 DATA 


EQU $1000 






0800 KBD 


EQU $C000 






0800 STROBE EQU SC010 






0800 KEY1 


EQU $FD2B 






0800 COUT1 


EQU $FDF0 






0800 










0800 










10D0 




ORG S1OD0 






10D0 




OBJ $800 






10D0 , 










10DO 


DATA 


GO FROM S1000-S10CF 




10DO ; 










10D0 2C00C0 START 


BIT KBD 




;KEY DOWN? 


10D3 10FB 




BPL START 




;N0 


10D5 9128 




STA (BASL) 


Y 


;YES. REPLACE CURSOR 


10D7 AD00C0 




LDA KBD 




;GET CHARACTER 


10DA C99B 




CMP #$9B 




; CONTROL CHARACTER? 


10DC 9003 




BCC MAIN 




;YES 


10DE 4C2BFD BACK 


.IMP KEY1 




;NO. OUTPUT IT 


10E1 C982 MAIN 


CMP |$82 




,-CONTROL-B? 


10E3 F0F9 




BEQ BACK 




;YES 


10ES C983 




CMP #$83 




;CONTROL-C? 


10E7 F0F5 




BEQ BACK 






10E9 C984 




CMP #$84 




;CONTROL-D? 


10EB F0F1 




BEQ BACK 






10ED C988 




CMP #$88 




;CONTROL-H? 


10EF F0ED 




BEQ BACK 






10F1 C98D 




CMP |$8D 




;CONTROL-M? 


10F3 F0E9 




BEQ BACK 






10F5 C995 




CMP #$95 




;CONTRQL-U? 


10F7 F0E5 




BEQ BACK 






10F9 C998 




CMP #$98 




jCONTROL-X? 


10FB F0E1 




BEQ BACK 






10FD 38 




SEC 




.•REDUCE VALUE TO A RANGE 


10FE E981 




SBC #$81 




. OF $00-$19 


1100 0A 




ASL 




.•MULTIPLY BY 8 


1101 0A 




ASL 






1102 0A 




ASL 






1103 AS 




TAY 






1104 B90010 LOOP 


LDA DATA.Y 




;GET TABLE ENTRY 


1107 C980 




CMP #$80 




;END OF ENTRY 


1109 F00B 




BEQ BACK1 




;YES 


HOB 9D0002 




STA IN.X 




;NO. PUT CHARACTER IN BUFFER 


HOE 20F0FD 




JSR COUT1 




/PRINT CHARACTER 


1111 E8 




INX 




;INC BUFFER POINTER 


1112 C8 




INY 




;INC TABLE POINTER 


1113 4C0411 




JMP LOOP 




;DO IT AGAIN 


1116 2C10C0 BACK1 


BIT STROBE 




; CLEAR KEYBOARD STROBE 


1119 A424 




LDY CH 




(RESET CURSOR VALUE 


111B 4CD010 




JMP START 




;CURE FOR DEAD BATTERIES?) 


HIE EA 




NOP 




;EXTRA BYTE SO CALL FROM BASIC 


111F ; 


WILL 


BE AN EASY NUMBER 




nir i 


TO REMEMBER 






111F ; 


« 








111F ; 


* 








111F ; 


CALLS 


FROM BASIC 


ENTER HERE 


1UF ; 


* 








111F A9D0 ON 


LDA # START 




;SET VALUES FOR INDIRECT JUMP 


1121 8538 




STA KSWL 






1123 A910 




LDA /START 






1125 8539 




STA KSWH 






1127 60 




RTS 






1128 EA 




NOP 




.•ANOTHER FILLER BYTE 


1129 A91B OFF 


LDA #$1B 






112B 8538 




STA KSWL 






11 2D A9FD 




LDA #$FD 






112F 8539 




STA KSWH 






1131 60 




RTS 







o 



o 
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you want and subtract 1 from its loca- 
tion in the alphabet. Then multiply 
this by 8. Add this, in hex, to $1000. 
(Congratulations, you have just per- 
formed a machine-language subroutine 
in your head. ) That value gives the start 
of the table for the desired letter. 

Once you've found the starting 
point, enter the ASCII values for the 
desired keyword, followed by an $80. If 
you don't have an ASCII table, use the 
ASC function from BASIC, then con- 
vert the number to hex. For those of 
you who are lazy, I've included an 
Integer BASIC program which con- 
structs keyword tables in listing 1. 

While the op codes for assembly 
language are only three letters long, 
you could save some typing by putting 
together a table which included the 
leading and trailing spaces and other 
special characters. For example, 
(space)LDA) space) #, for immediate 
commands could be printed with one 
control character. 

Modifications 

Relocating the program isn't dif- 
ficult. Only a few changes are needed. 
The JMP LOOP and JMP START are the 
only jumps which refer to the program. 
The value of DATA would have to be 
changed, as would the values set by the 
ON portion. 

Final Notes 

The pointers to the KEYIN routine 
cannot be reset in the direct mode. Sup- 
pose, for example, you change the lo 
byte with POKE 56,NN. So far, there is 
no problem. But as soon as you hit 
RETURN, the monitor will go to the in- 
put routine. When it hits the indirect 
jump to KEYIN, it will find a value 
with a new lo byte and an old hi byte. 
Unless you are incredibly lucky, this 
new value will not be one which has 
anything to do with input. To see this 
in action, enter POKE 56,7. (You can 
reset the pointers with a line from 
BASIC since the monitor won't look 
for input during execution.) 

Disk users will have to add a CALL 
1002 after turning MacApple on or off. 

Finally, if you use the front or back 
arrow immediately after a keyword, a 
@ will appear on the screen. This can 
be removed with the space bar. 

I hope this program will save you 
some time and effort. 









Table 2: Keyword table. 








A 


1000 - 


CI 


D3 


C3 


A8 


A2 


80 


50 


50 


B 


1008 - 


80 


50 


50 


50 


50 


50 


50 


50 


C 


1010 — 


80 


50 


50 


50 


50 


50 


50 


50 


D 


1018 — 


80 


50 


50 


50 


50 


50 


50 


50 


E 


1020 - 


DO 


C5 


C5 


CB 


80 


50 


50 


50 


F 


1028 - 


DO 


CF 


CB 


C5 


80 


50 


50 


50 


G 


1030 - 


C7 


CF 


D4 


CF 


80 


50 


50 


50 


H 


1038 - 


80 


50 


50 


50 


50 


50 


50 


50 


I 


1040 — 


C9 


CE 


DO 


D5 


D4 


80 


50 


50 


J 


1048 - 


C7 


CF 


D3 


D5 


C2 


80 


50 


50 


K 


1050 - 


C3 


CI 


CC 


CC 


80 


50 


50 


50 


L 


1058 - 


CC 


C5 


CE 


A8 


80 


50 


50 


50 


M 


1060 — 


80 


50 


50 


50 


50 


50 


50 


50 


N 


1068 — 


CE 


C5 


D8 


D4 


80 


50 


50 


50 


O 


1070 - 


C3 


CF 


CC 


CF 


D2 


BD 


80 


50 


P 


1078 — 


DO 


D2 


C9 


CE 


D4 


80 


50 


50 


Q 


1080 — 


DO 


CC 


CF 


D4 


80 


50 


50 


50 


R 


1088 - 


D2 


C5 


D4 


D5 


D2 


CE 


80 


50 


S 


1090 - 


D3 


C3 


D2 


CE 


A8 


80 


50 


50 


T 


1098 — 


D4 


C8 


C5 


CE 


80 


50 


50 


50 


U 


10A0 - 


80 


50 


50 


50 


50 


50 


50 


50 


V 


10A8 - 


D6 


CC 


C9 


CE 


80 


50 


50 


50 


w 


10B0 - 


C8 


CC 


C9 


CE 


80 


50 


50 


50 


X 


10B8 - 


80 


50 


50 


50 


50 


50 


50 


50 


Y 


10C0 — 


D2 


C5 


CD 


80 


50 


50 


50 


50 


z 


10C8 - 


C4 


C9 


CD 


80 


50 


50 


50 


50 



10 DIM A$(26) / B$(10) 

20 A$="ABCDEPGHIJKLMNOP^STUVWXYZ n 

30 FOR 1=0 TO 25 

40 PRINT "ENTER KEYWORD FOR CONTROL ";A$ (1+1,1+1) 

50 INPUT B$ 

60 IF LEN(B$)>7 THEN 40 

70 FOR J=0 TO LEN(B$)-1 

80 IF LEN(B$)<1 THEN 110 

90 POKE 4096+8*I+J, ASC(B$(J+1,J+1) ) 
100 NEXT J 

110 POKE 4096+8*I+J,128 
120 NEXT I: PRINT "DONE": END 



JMCRO 
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Dr. DoBBS lOURNALof 

COMPUTER 



V^alisth 



enics 



(j \Jrthodontia 



Running Light Without Overbyte 



Twelve Times Per Year 



$21/1 Year- $39/2 Years 



i 




Recent issues have included: 

7X65: Simulating a Micro 
EXOS-6500 Software Development Tool Kit 
6502 Assembler— Pet 8K-32K 
A Note on 6502 Indirect Addressing 
The C Programming Language 

What you see is what you get. 



To subscribe, send your name and address to Dr. Dobb's Journal, 
Department V4, Post Office Box E, Menlo Park, CA 94025. 

We'll bill you. 



%. 




12 



MICRO -The 6502 Journal 



No. 36 -May 1981 



KIM/SYM 
Home Accounting System 



This program illustrates a very 
simple and basic application for 
a personal computer in the 
home that requires a minimum 
of hardware to implement. 



Robert Baker 
15 Windsor Drive 
Atco, New Jersey 08004 

Tii's article was originally written for 
the KIM but will also run on the SYM 
with the included routines. 

After acquiring a KIM-1 micro- 
computer, this simple program was 
written to help justify its existence in 
our home. The program was designed 
to do the bookkeeping for our family 
budget but could easily be used for 
many other applications. 

My goal was to write a program that 
would not require any additional hard- 
ware besides the very basic system 
containing a KIM-1 module, power 
supply, and cassette recorder. Thus, 
the program uses the on-board 
keyboard for all input, and the 
7-segment displays for all output by 
means of two of the monitor sub- 
routines in ROM. The positioning of 
the 7-segment displays makes them 
ideal for displaying monetary values 
with a small space between the 
"dollars" digits and the "cents" digits, 
but the program can also be used for 
various other applications, such as a 
parts inventory. 

The program itself resides in page 2 
(Loc. 0200-02FF) of RAM and uses the 
first locations of page zero for working 
storage as shown in the program 
listing. Page 3 |Loc. 0300-03FF] of RAM 
is used to store the balances of each 
account with three bytes per account. 
The first three locations of page 3 are 
reserved for account #0 which is the 
overall total of all existing accounts. 
The remaining space of page 3 may be 



Table 1: Keyboard Commands (# = any decimal number 0-9) 

Input Operation/Display 

##A Set account number '##' 

Display reads 'AAAA ##' 

Display current account number. 
Display reads 'AAAA ##' 

Increment account number & display new number. 
If at last account "wrap" to account #0. 
Display reads 'AAAA ##' 

Display balance of current account. 

Display reads '######' 



(no input) A 
(no input) + 

B (any time) 

#### ##C 
#### ##D 



Credit current account & display new balance. 
Display reads '######' 

Debit current account & display new balance. 
Display reads '######' 

If current balance is less than amount to be deducted, item 
will be disregarded and display will read 'EEEE EE' 



0800 




******************* 






0800 




* 




* 






oeoo 




* KIM + 1 - ? 


* 






0800 




* 




* 






0800 




* BY FCBFOT BAKEF 


* 






0800 




* 




* 






0800 




******************* 






0800 




* 










0800 




* 










0800 




:w 


EPZ $F9 




;LSD 7-SEGMFNT DISPLAY 




0800 


] 


=OINTL EPZ $FA 




; KIDDLE 2 DIGITS IN DISPLAY 




0800 


I 


>OINTH EPZ $FB 




,-MSD IN DISPLAY 




0800 


. 


SCANTS B0U $1F1F 




;SCAN DIGITS DISPLAY & LOCK FOR 


INPUT 


0800 


( 


3ETKEY EQU $1F6A 




;READ KEYBOARD INPUT 




0800 














0800 




=TR 


EPZ $00 




; TABLE POINTER 




0800 


1 


MDCT 


EPZ 501 




.•CURRENT ACCT # 




0800 




ENFLG 


EPZ $02 




; INPUT FLAG 




0300 


\ 


Dom 


EPZ $03 




.-WORKING STORAGE 




0800 














0200 






ORG $200 








0200 














0200 






OBJ $800 








(3200 A900 


3TART 


LTA #$00 




;INIT ACCT = 




0202 


85F9 


SETA 


STA IMF 




;SFT ACCT* 




0204 


8501 




STA ACCT 








0206 


29F0 


SFTPTP AMD #$F0 




;SFT POINTER - 




0208 


4A 




LSR 




; CONVERT ACCT# 




0209 4A 




LSR 




; TO BINARY S, 




020A 8503 




STA WORK 




;MULTIPLY BY 3 




020C 4A 




LSR 








020D 8500 




STA PTR 








020F A501 




LEA ACCT 








0211 


38. 




SFC 








0212 E503 




SPC WORK 








0214 


E500 




SEC PTR 
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used as required for up to 84 individual 
accounts. The maximum number of 
accounts is determined by the value in 
location 02BA, which should be one 
greater (decimal) than the highest 
account number desired. 



After hand-loading the program the 
first time, be sure to clear all locations 
of page 3 that are to be used for storage 
of the account balances (Loc. 0300 to 
0302 + (3 * #accounts) ). Also, don't 
forget to set the highest account 
number plus one in location 02BA. The 
locations on page zero are initialized 
by the program so there is no need to 
set (or save) these. 



When you are ready to run, load 
address 0200 and depress "GO". The 
display should read 'AAAA 00' to 
indicate proper initialization with the 
current account number equated to 
zero. You're now ready to use the pro- 
gram as desired. Table 1 gives a 
complete description of each of the 
keyboard controls; keys 0-9 are used for 
input values and keys A,B,C,D, and + 
are used for control. 



Each time a value is added to 
(credit) or subtract from (debit) an 
individual account, it is also added/ 
subtracted to account #0 to keep a run- 
ning total of all account balances. This 
provides a simple method of comparing 
your checking and savings accounts 
with your budget balance. To keep 
account #0 valid, the program will not 
allow you to credit/debit account #0 
directly. Also, if you try to debit an 
account with an amount greater than 
its current balance, the entry will be 
disregarded and the display will read 
'EEEE EE' to indicate the error. 



After each session of running the 
program simply store the program on 
cassette following the standard pro- 
cedures, locations 0200 to (0302 + (3 * 
^accounts) ). This will save the current 
account balances plus the program 
itself. Then, the next time you want to 
run the program, simply load from 
cassette and start at location 0200. 
Alternately, you can save pages 2 and 3 
separately to conserve space on 
cassette, or to allow more program 
flexibility for specific applications. 



0216 8500 




STA PTK 




0218 0A 




ASL 




0219 6500 




ADC PTK 




021B 8500 




STA PTK 




021D A9AA 




LTA #$AA 


r DISPLAY A'S 


021F 85FA 


CHRS 


STA POINTL 


;LOAD DISPLAY SPECIAL CHARACTERS 


0221 85FB 




STA POINTH 




0223 A901 


CLFLG 


LTA #$01 


;CLEAR INPUT FLAG 


0225 8502 




STA INFLG 




0227 201F1F 


DSPLY 


JSR SCANTS 


; DISPLAY DATA 


022A 


;F0R EYM, SUBSTITUTE CODE AT $106 


022A EOFB 




BNE DSPLY 




022C 201F1F 


INPT 


JSR SCANDS 


;WAIT FOR INPUT 


022F 


;FOR SYM, SUBSTITUTE CODE AT $106 


022F F0FB 




BEQ INPT 




0231 206A1F 




JSF GETKEY 


;RFAD KEY 


0234 


;FOP. SYM, SUBSTITUTE CODF AT $133 


0234 C90A 




CMP #$OA 


r DIGIT? 


0236 1018 




BPL CKTL 


; BRANCH IF CONTROL KEY 


0238 A0O4 




LTY #$04 


rSFT NORMAL SHIFT COUNT 


023A C602 




DEC INFLG 


; FIRST INPUT? 


023C C002 




HUE SHFT 




023E A018 




LDY #$18 


?YES, SET SHIFT COUNT TO CLEAR TISPLAY 


0240 06F9 


SHFT 


ASL INH 


r SHIFT DIGITS 


0242 26FA 




ROL POINTL 




0244 26FB 




ROL POINTO 




0246 88 




DFY 




0247 D0F7 




BNF SHFT 




0249 45F9 




FOR INH 


;ADD NEK DIGIT 


024B 85F9 




STA INH 


; TO DISPLAY RFGISTER 


024D 4C2702 




JMP DSPLY 


;GET NEXT KEY 


0250 C90B 


OJTL 


CMP #$0B 


;WANT BALANCE? 


0252 D0OF 




BNF INCHK 




0254 A400 


BAL 


LDY PTR 


rYES, GET POINTER 


0256 A202 




Lnx #?02 




0258 B90203 


MBAL 


LDA TBLH.Y 


;M0VE BALANCE 


025B 95F9 




STA INH.X 


; TO DISPLAY 


025D 88 




DEY 




025E CA 




DEX 




025F 10F7 




BPL MBAL 




0261 D0C0 


LINK 


BNE CLFLG 


;CLEAR FLAG & WAIT 


0263 O602" 


INCHK 


DEC INFLG 


;ANY INPUT? 


0265 F03E 




BEO GETA 




0267 C90A 




CMP #$0A 


;YES, NEW ACCT# 


0269 D004 




BNE CRTT 




026B A5F9 




LDA INH 


;YFS, GET NFW # 


026D- 104A 




BPL CHKA 


; CHECK IT 


026F A000 


CRDT 


LDY #$00 




0271 C400 




CPY PTR 


;ACCT #0? 


0273 F0B2 




BEO DSPLY 


; ERROR, CANNOT CR/DB ACCT #0 


0275 C90C 




CMP #$0C 


; CREDIT ACCOUNT? 


0277 D00A 




BNE DBT 




0279 20C002 




JSR ADD 


,-YES, Atr TO ACCOUNT 


027C A400 




LDY PTR 




027E 20C002 




JSR ADD 


;ADD TO ACCOUNT 


0281 F0D1 




BEO BAL 


;SHOW BALANCE 


0283 C90D 


DBT 


CMP #$0D 


; DEBIT ACCOUNT? 


0285 DOAO 




BNE DSPLY 


;NO, DISCARD KEY 


0287 20C902 




JSP SUB 


;YES, SUB FROM ACCOUNT #0 


028A BOOB 




BCS DECK 


; NEGATIVE RESULT? 


028C A000 


DBFRR 


LDY #$00 


;YES, ADD # BACK 


028E 20C002 




JSR ADD 




0291 A9EE 




LTA #$EF. 


;PUT F'S IN DISPIAY 


0293 85F9 




STA INH 




0295 D088 




BNE CHRS 


;SHOW ERROR (EEEE EE) 


0297 MOO 


DECK 


LEY PTR 




0299 20C902 




JSR SUB 


;SUB FROM ACCOUNT 


029C B0B6 




BCS BAL 


;SHCW BALANCE IF O.K. 


029E A400 




LDY PTR 


;ADD # BACK IF ERROR 


02AO 20C002 




JSR ADD 




02A3 FOE7 




BEQ DBERR 


:ADD BACK TO ACCT & SHCW ERROR 


02A5 C90A 


GETA 


CMP #$0A 


; DISPLAY ACCOUNT #? 


02A7 DO05 




BNE NEWA 




02A9 A501 




LDA ACCT 


;YES, GET #? 


02AB 4C02O2 


SHCWA 


JMP SETA 


rSHCW IT 


02AE C912 


NEWA 


CMP #$12 


;INC ACCOUNT #? 


02BO DOAF 




BNE LINK 


;NO, CLEAR INPUT FLAG & WAIT 


02B2 A501 




LDA ACCT 


;YES, GET ACCOUNT # 


02B4 F8 




SED 


;GO TO DECIMAL MODE 


02B5 18 




cue 


;CLEAK CARRY 


02B6' 6901 




ACC #$01 


;INC # 


02B8 D8 




CLD 


;BACK TO BINARY MODE 


02B9 C9 


CHKA 


BYT $C9 


;'CMP'~CHECK ACCOUNT # 


02BA 00 




BYT $00 


;LAST ACCOUNT #1 + 1 GOES HERE 


02BB 

■ 


' 







c 



Q 
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02BB 

02BB 30EE 
02BD 4C0O02 
02CO 
02C0 
02C0 

02C0 A918 
02C2 8DDA02 
02C5 A975 
02C7 D007 
02C9 A938 
02CB 8DDA02 
02CE A9F5 
02D0 8DDE02 
02D3 A203 

02D5 8603 
02D7 A20O 
02D9 F8 
02DA 38 
02DB B900O3 
02DE F5F9 
02EO 990003 
02E3 E8 
02E4 C8 
02E5 C603 
02E7 D0F2 
02E9 D8 
02EA 60 
02EB 
02EB 
02EB 
02EB 
0300 
0300 
0300 

0300 00 

0301 00 

0302 00 
0303 

0303 00 

0304 00 

0305 00 
0306 
0306 
0306 



%g0? 



0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 



BMI SHOWA 


;O.K., SHOW IT 


JMP START 


.•SET TO IF TOO LARGE 


•ADD/SUBTRACT ROUTINE 




ADD LDA #$18 


; 'CLC'-SET INSTR FOR ADD MODE 


STA INSTR1 




LDA #$75 


.-'ADC' 


BNE STIN5T 




SUB LDA #$38 


.-SET INSTR FDR SUB MODE 


STA INSTR1 




LDA #$F5 




STTNbT STA INS>TK2 




LDX #$03 


;SET LOOP COUNT 


STX WDFK 




LDX #$00 


;SET INDEX X 


SET 


; DECIMAL MODE 


INSTR1 SBC 


•CLEAR/SET CARRY 


MATH LDA TBLL.Y 


;GET DIGITS 


INSTR2 SBC INH.X 


.-ADD/SUBTRACT 


STA THT.L.Y 


;STORE RESULT 


IMC 


;INC INDEX REGISTERS 


IN* 




DEC WOHC 


;DEC LOOP COUNT 


BNE MMH 


;CONTINUE 


CLD 


;RESET BItBRY MOrE 


RTS 


;RETURN 


.•BEGINNING OF ACCOUNT DATA (3 BYTES/ACCOUNT) 


.-MAXIMUM OF 84 INDIVIDUAL ACCOUNTS + ACCOUNT #0 


OHG $300 




OBJ $800 




TSLL BYT $00 


;ACCOUNT —LSD 


BYT $00 




TflLH BYT $00 


.•ACCOUNT — MSD 


BYT $O0 


.•ACCOUNT 1 —LSD 


BYT $00 




BYT $00 


;ACCOUNT 1 —MSD 







The following routines, provided by 
Nick Vrtis, originally appeared in his 
article "The First Book of KIM on a 
SYM" (MICRO 14:35) and reappeared 
in The Best of MICRO Volume 3. 
These routines allow you to use the 
program on a SYM. 



************************ 

* * 

* SXM-l VERSIONS OF * 

* VARIOUS KIM ROUTINES * 

* * 

* BY NICK VRTIS * 

* * 
************************ 
* 

FOR FURTHER INFORMATION CONSULT THE 
ORIGINAL ARTICLE WHICH APPEARED IN: 
MICRO 14:35 
BEST OF MICRO VOL. Ill P. 63 



TRANSO 

PZSCR 

POINTH 

POINTL 

INH 

SWPAD 

SYMPBD 

SYMDIS 

SWSCA 



EQU $0137 
EPZ $FC 
EPZ $FB 
EPZ $FA 
EPZ $F9 
EQU $A4O0 
EQU $A402 
EQU $A640 
EQU $8906 



TRANSLATE TABLE LESS OFFSET $11 
PAGE ZERO SCRATCH LOCATION 
EXECUTE RAM POINTER HIGH 
: EXECUTE RAM POINTER LOW 
iTERMINM. CHARACTER INPUT 
OUTPUT PORT A ON 6532 
OUTPUT PORT B ON 6532 
DISPLAY BUFFER 
LED OUTPUT DISPLAY BUFFER 



Charge MICRO 
and MICRO Books! 

MICRO now accepts 
VISA and Mastercard. 
Credit card holders 
around the world can 
now order subscriptions 
and books by phone or 
mail. 

Call (617) 256-5515 
between 9:00 A.M. and 
5:00 P.M. and say 
"Charge it!" 

Or mail your order with 
your credit card name, 
number, and expiration 
date to: 

Order Department 

MICRO 

P.O. Box 6502 

Chelmsford, MA 

01824 

International Orders 

If you are outside the U.S., 
you may pay by: 

1. VISA or Mastercard 

or 

2. International 
Money Order 

We no longer accept bank 
drafts from foreign 
banks— even if the funds 
are drawn on an account 
in a U.S. bank! The rising 
bank charges now make 
payment by this method 
prohibitive. 
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Letterbox (continued from page 6) 
Dear Editor: 

I'm cheating, really... with regard to 
your "Too Many Apples!" editorial.... 
You asked for feedback from readers, 
and I'm not a regular MICRO reader. 

I bought your February issue just for 
the "In the Heart of Applesoft" article. 
MICRO is a quality publication, but 
there just isn't enough Apple-related 
material to justify my subscribing. 

I think I might be fairly typical of 
the sort of reader who would buy 
MICRO (or its Apple edition| on a 
regular basis if there were enough 
Apple coverage. 

Good grief— thousands of us have 
kilobucks invested in Apple fit's the 
kind of computer that attracts in- 
telligent laymen— no wonder so many 
articles of high quality are submitted!). 
With Pascal, I can tackle projects that 
are light years beyond the scope of 
KIM, SYM, et. al. and I'm hungry for 
reading material! 

As far as I'm concerned, you can 
publish just one more article for those 
bare-board, skinflint, kitchen table 
time-wasters— "How to Convert Your 
KIM-1 Into a Dedicated Coffee Per- 
colator." That's it— the final article! 

Given the choice of publishing a 
magazine for the relatively well-heeled 
and serious users of what may well be 
the "Model A" of computing versus 
publishing one for a minority of im- 
poverished assembly language hob- 
byists, it surprises me that you resist 
the opportunity to publish more Apple- 
based articles. 

Where will KIM, SYM, PET and 
AIM be in ten years? Apple, and its pro- 
geny, might well dominate the world of 
microcomputing by that time. Will 
MICRO ride the bandwagon or drag its 
heels? The choice is yours! 

Please don' t publish my name or ad- 
dress. I don't want my Apple stolen! 



Editoi's Note: Beginning in June, 
MICRO will be expanding to include 
more Apple articles each month. We 
thank all who responded to the "Too 
Many Apples!" editorial. 



0800 


SYMKEY EQU $8923 


•CHECK FOR ANY KEY DOWN 


0800 


SYMLRN EQU S892C 


DETERMINE KEY PRESSED 


0800 


SYMSEG EQU $8C29 


;LED SEGMENT CODES 


0800 


/ 




0100 


ORG $100 


•OUT OF THE WAY ON STACK PAGE 


0100 


OBJ $800 




0100 






0100 


;SYM-1 VERSION OF KM SCAND 


& SCANDS ROUTINES 


0100 






0100 A000 


SCAND LDY #$00 


ENTER HERE TO GET BYTE 


0102 B1FA 


LDA (POTNTL),Y 


ADDRESSED BY POINTL 


0104 85F9 


STA INH 


AND MOVE IT TO INH AREA 


0106 


f 




0106 A000 


SCANDS LDY #$00 


ENTER HERE IF INH ALREADY STORED 


0108 A5FB 


LDA POINTB 


POINTH FIRST TO DISPLAY BUFFER 


010A 201A01 


JSR SPLITP 




010D A5PA 


LDA POINTL 


THEN DO POINTL 


010F 201A01 


JSR SPLITP 




0112 A5F9 


LDA INH 


•LAST, BUT NOT LEAST, DO INH 


0114 201A01 


JSR SPLITP 




0117 4C0689 


JMP SYMSCA 


•SET SYM MONITOR LIGHT & RETURN 


011A 


? 




011A 48 


SPLITP PHA 


SAVE ORIGINAL 


01IB 4A 


LSR 


ON STACK FOR LATER 


011C 4A 


LSR 


SHIFT HI HALF TO LO HALF 


011D 4A 


LSR 




011E 4A 


LSR 


WHICH IS 4 BITS DCWN 


011F AA 


TAX 


PUT INTO X AS AN INDEX 


0120 BD298C 


LDA SYMSEG.X 


GET APPROPRIATE SEGMENT CODE 


0123 9940A6 


STA SYMDIS,Y 


AND PUT INTO DISPLAY BUFFER 


0126 C8 


INY 


BUMP Y FOR NEXT BYTE 


0127 68 


PLA 


NOW GET ORIGINAL VALUE BACK 


0128 290F 


AND #$0F 


KEEP ONLY LOW ORDER 4 BITS 


012A AA 


TAX 


AND REPEAT SEGMENT PROCESS 


012B BD298C 


LDA SYMSEG.X 




012E 9940A6 


STA SYMDIS,Y 




0131 C8 


INY 


INCLUDING BUMP FOR NEXT BYTE 


0132 60 


RTS 


AND RETURN 


0133 






0133 


;SYM-1 VERSION OF GETKEY SUBROUTINE 


0133 






0133 202C89 


GETKEY JSR SYMLRN 


•GET SYM VERSION OF THE KEY 


0136 D003 


BNE KEYDWN 


BRANCH IF ANY KEY IS DCWN 


0138 A915 


GKNONE LDA #$15 


ELSE SET TO KIM NO KEY DOWN 


013A 60 


RTS 


AND RETURN 


013B 8A 


KEYEWN TXA 


X HOLDS INDEX INTO ASCII TABLE 


013C C911 


CMP #$11 


NEED TO FUDGE* KEY VALUE? 


013E 9007 


BCC GKRTS 


00-0F IS OK 10=AD(KIM)=CR(SYM) 


0140 C916 


CMP #$16 


CHECK FOR OUT OF KIM RANGE 


0142 B0F4 


BCS GKNONE 


AND TREAT AS A 'NO KEY' 


0144 AD3701 


LDA TRANSO 


ELSE TRANSLATE THROUGH TABLE 


0147 60 


GKRTS RTS 


AND RETURN 


0148 


; 




0148 12 


TRANST BYT $12 


•+'<KIM) ='-/+' (SYM) 


0149 11 


BYT $11 


■DA* (KIM)=NO KEY (KIM) 


014A 15 


BYT $15 


SHIFT (SYM)=NO KEY (KIM) 


014B 13 


BYT $13 


•GMKm^'GO/LP' (SYM) 


014C 14 


BYT $14 


■PC' (KIM)= , REG/SP' (SYM) 


014D 






014D 


;SYM-1 VERSION OF KIM KEYIN 


SUBROUTINE 


014D 






014D 202389 


KEYIN JSR SYMKEY 


GET KEYBOARD STATUS 


0150 D003 


BNE KEYIN2 


REVERSE ZERO FLAG 


0152 A2FF 


LDX #$FF 


KIM NOT ZERO— HO KEY— FF FOR LRNKEY 


0154 60 


RTS 




0155 A200 


KEYIN2 LDX #$00 


•AND IS ZERO IF KEY IS DCWN 


0157 60 


RTS 




0158 






0158 


•SYM-1 VERSION OF KIM CCNVD 


ROUTINES $1F48 S. $1F4E 


0158 






0158 84FC 


CONVD STY PZSCR 


SAVE Y IN SCRATCH AREA 


015A A8 


TAY 


MOVE NIBBLE OF A TO INDEX REGISTER 


015B B9298C 


LDA SYMSEG,Y 


GET HEX SEGMENT CODES FROM TABLE 


015E 8E02A4 


DISPCH STX SYMPBD 


SELECT THE DIGIT 


0161 8D00A4 


STA SYMPAD 


OUTPUT THE SEGMENT CODES 


0164 A010 


LDY #$10 


KEEP IT LIT FOR A WHILE 


0166 88 


LIGHT DEY 




0167 D0FD 


BNE LIGHT 




0169 8C00A4 


STY SYMPAD 


•TURN ALL SEGMENTS OFF FOR NEXT ONE 


016C E8 


INX 


BUMP X TO NEXT DIGIT 


016D A4FC 


LDY PZSCR 


•RESTORE THE Y REGISTER 


016F 60 


RTS 


•AND RETURN 

JMCRO 
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MICRO 

Challenges 



By Paul Geffen 

Last month's column may have left the 
impression that Ohio Scientific pro- 
vides very little documentation for its 
products. This has been the case until 
recently. The new management at OSI 
is making an effort to improve the 
quantity and quality of its documenta- 
tion. This effort, started last year, is 
still underway. Here is a report on the 
results so far. 

Last year OSI published a set of 
revised User's Manuals for the C1P, 
C4P, and C8P personal computers. 
These were a big improvement over the 
previous versions. The new User's 
Manuals look better, contain more in- 
formation, and are much more reliable 
than the old ones. They also include 
illustrations and photographs which 
are valuable to the beginner. These 
manuals cover the middle ground 
because they assume a certain amount 
of knowledge about computers, but 
contain limited detail about the inner 
workings of the machines. 

More recently, OSI has published 
manuals for the novice as well as for 
the more advanced user. For the 
novice, there is now a series of five 
Introductory Manuals, for the C1P, 
C4P, C4PMF, C4PDF and C8PDF. I 
have seen only the first of these; the 
rest should be available by the time you 
read this. These manuals will be in- 
cluded with the computers, along with 
the User's Manual. These Introductory 
Manuals assume very little and are 
designed for the beginner. They include 
many photographs and provide detailed 
instructions on how to set up the 
machine and save programs. 

The manuals also provide very little 
general information about BASIC. 
They serve to de-mystify the machine 
and make it accessible to someone who 
knows next to nothing about com- 
puters. This approach is designed to 
make OSI personal computers appeal to 
the mass market, those people who 
now form the fastest growing part of 
the computer market. 

Also for the beginner, OSI publishes 
two introductory BASIC texts. The first 
is Understanding Your Ohio Scientific 
C1P and C4P, A Workbook of Program- 
ming Exercises in BASIC by Keith 



Russell and David Schultz. This book 
covers all the capabilities commands 
and keywords of OSI BASIC (with the 
exception of the USR[X) function). The 
book is limited to the BASIC language 
and avoids machine level information 
so as not to confuse the reader. It is also 
written specifically for OSI machines 
and contains information peculiar to 
these machines, like how to get started 
and what POKEs to use to change the 
screen format. 

The second BASIC text is BASIC 
and the Personal Computer by T.A. 
Dwyer and M. Critchfeld. This book is 
four times as long as the one by Russell 
and Schultz, and is much more detailed 
as well as broader in scope. While the 
former covers only the basics, the latter 
includes chapters on applications like 
word processing, games, art, simula- 
tion, data structures, sorting and files. 
In addition to providing an introduc- 
tion to computers and the BASIC 
language, Dwyer and Critchfeld cover 
many of the possible applications of 
personal computers. This book was not 
written for OSI computers. It is a 
general BASIC text for college courses 
published by Addison-Wesley with a 
special cover for OSI. Some of the 
material here applies to other versions 
of BASIC, but for the most part the 
book is written for users of any 
machine. Both texts assume very little 
initially, but the one by Dwyer and 
Critchfeld goes further and faster. 

For BASIC programmers who want 
to learn about machine language, OSI 
publishes the 65V Primer, an introduc- 
tion to machine code on the OSI per- 
sonal computers. OS 65V is the 
machine . level monitor program in 
ROM which provides the most fun- 
damental support for other programs 
like BASIC. This book is also a good 
introduction to 6502 assembly or 
machine language programming. It 
describes all of the machine instruc- 
tions and contains many examples and 
exercises. It does not assume any 
knowledge of computers, but it helps to 
be able to program in BASIC before 
reading this book. 

OSI has completed two new 
reference manuals which I have not 
seen but which should be available 
shortly. One is a new and improved 
BASIC Reference Manual and the other 
is an Assembler/ Editor/ Extended 
Monitor Reference Manual. I plan to 
review these in a future column. 

For the hardware expert or repair- 
man, Ohio Scientific and Howard Sams 
publish three detailed Servicing 
Manuals tor OSI personal [C1P and 
C4P) and business computers |CII and 
CHI). These contain block diagrams, 



parts lists, schematics, photos of the 
boards, and very little text. They are 
essential for repairing the computers 
and helpful when modifying the cir- 
cuitry. These manuals assume the 
reader has a good electronics 
background, the ability to read 
schematics, and a working knowledge 
of digital electronics. The only item 
mising from these manuals is a 
schematic of the power supply, which 
is represented as a "black box." 

All of the above documentation is 
available from OSI dealers, separate 
from the computers. In addition to 
these publications, OSI has expanded 
its customer service department and its 
programming staff. If you own an OSI 
machine and have questions about 
hardware or software, write to the 
Customer Service department, 1333 
South Chillicothe Road, Aurora, Ohio 
44202, or call [216) 831-5600. 

For the experienced assembly 
language programmer who wants to 
know everything about the internal 
operation of the OS65D V3.2 disk 
operating system, a complete com- 
mented disassembly of OS65D V3.2 is 
available from Software Consultants, 
7053 Rose Trail, Memphis, Tennessee 
38134. This book has been praised in 
all the newsletters. I have just received 
a copy and plan a full report in my next 
column. 

The C2-4P 

This is a relatively old OSI personal 
computer. It is no longer in production 
but since there are quite a few of them 
around it deserves mention. This 
model has since been upgraded to the 
C4P. The only differences between the 
two are that the C2-4P has an older (rev 
A) video display board without color, 
and an older version of the CPU board 
with fewer I/O lines. Other than that, 
the only difference is the enclosure. 
C2-4P software will run on the C4P and 
most C4P software will run on the 
C2-4P unless it requires the I/O ports 
on the new CPU board. 

A used C2-4P can be a very inexpen- 
sive personal computer but it helps to 
know how to maintain it. Schematics 
for the older boards are not in the C4P 
servicing manual but can be obtained 
from OSI directly. (Write to Bill Con- 
rad at Customer Service.) Despite its 
age, this model is not obsolete. Much 
software continues to be written on and 
for this computer. And it can be con- 
verted into a C4P by replacing the two 
boards mentioned above. 
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NIBBLE IS TERRIFIC 

(For Your Apple) 



r 




NIBBLE 18: The Reference for Apple computing! 

NIBBLE IS? One of the Fastest Growing new Magazines in 
the Personal Computing Field. 



: IS: Providing Comprehensive, Usefuland 
Instructive Programs for the Home, Small Business, and 
Entertainment. 

NIBBLE IS: A Reference to Graphics, Games, Systems 
Programming Tips, Product News and Reviews, Hardware 
Construction Projects, and a host of other features. 

NIBBLE IS: A magazine suitable for both the Beginner and 
the Advanced Programmer. 

Each issue of NIBBLE features significant new Programs of Commercial Quality. Here's 
what some of our Readers say: 

- "Certainly the best magazine on the Apple II" 

- "Programs remarkably easy to enter" 

- "Stimulating and Informative; So much so that this is the first computer magazine I've 
subscribed to!" 

- "Impressed with the quality and content." 

- "NIBBLE IS TERRIFIC!" 

In coming issues, look for: 

D Stocks and Commodities Charting □ Assembly Language Programming Column 

□ Pascal Programming Column □ Data Base Programs for Home and Business 

□ Personal Investment Analysis □ Electronic Secretary for Time Management 
D The GIZMO Business Simulation Game 

And many many more! 

NIBBLE is focused completely 
on the Apple Computer systems. 

Buy NIBBLE through your local 
Apple Dealer or subscribe now with 
the coupon below. 

TryaMBBLE! 



C 



NOTE 

f-irsl Class or Air Mail is required tor all APO. r-PO and all foreign addresses 
with the following additional amounts Africa: North $32.00 

- Europe $32.00 Central $43.00 

- Mexico and Central America $21 .00 South $43.00 

- South America $3Z00 Far East, Australia $43.00 

- Middle East $35.00 Canada $18.00 
All payments must be in U.S. funds drawn on a U.S. bank. 

i; WHO by MICRO-SPARC . INC.. Lincoln. Mass. OI77.V All rights reserved 
'Apple II is a registered trademark of Apple Computer Company 



nibble 



Box 325, Lincoln, MA. OI773 (6I7) 259-97IO 

I'll try nibble! 

Enclosed is my $17.50 (for one year). 
(Outside U.S., see special rates on this page.) 

D check □ money order 

Your subscription will begin with the next issue published after 
receipt of your check/money order. 



Name . 



Address_ 

City 

State 



Zip_ 
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More Output 
from your Micro 



Here is a simple way to add 
extra output bits to your single 
board microcomputer. This 
technique will work on the AIM, 
SYM, KIM and OSI Superboard 
or CI P. The method is similar to 
that used on the Apple II for 
generating sound, and a 
"random beeper" program 
concludes this article. 

H.H. Aumann 
1262 Rubio Vista 
Altadena, California 91001 

The circuit in figure 1 provides an 
independent output bit which can be 
turned on and off under program 



control with minimal effort and 
without tying up your VIA. It consists 
of one half of a 74LS107 dual JK flip- 
flop connected to unused address 
decode outputs from the computer. In 
this case, the flip-flop is used to drive 
an audio amplifier and a speaker to 
provide sound output, but many other 
applications are possible. For example, 
the output bit could be used to control 
a printer or other device. 

This is how it works. All 
microcomputers use decoders to divide 
the 64K range of possible addresses into 
more manageable units. Some of the 
outputs from these decoders are not 
used on the board and are available for 



other purposes. Table 1 shows what 
addresses are unused on each micro and 
where the corresponding signals may 
be found. 



Two of these decoder outputs are 
used to set and reset the flip-flop in 
figure 2. Almost any flip-flop may be 
substituted, as shown. The output of 
the flip-flop is the new output bit. If all 
you want to do is toggle the output 
then the decode line may be connected 
to the clock input of the flip-flop. In 
this case only one address is needed for 
access but you may not be able to tell if 
the output bit is on or off. In the case of 
sound output this is not important. 



Figure 1 



A+ 5V 



decode output 



14| Q13 

CLR 
J Q 



>-0>CLK 

* 12 



K 



/777 

74LS107 




270K 



4.7K 



-I-5V 



200/Z.F 




W? W 



07 



SPEAKER 
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If you use the circuit in figure 2, 
then a read from an address 
corresponding to decode output 1 will 
turn on the output bit, and a read from 
an address corresponding to decode 
output 2 will turn off the output bit. 



The following BASIC program 
generates random sound output on the 
OSI Superboard. The machine language 
program is relocatable and will run on 
any machine by changing the byte at 
$0226. The BASIC program must be 
changed to load the machine code in a 
convenient location. This is left to the 
reader as an exercise. 



Table 1 








AIM 


SYM 


KIM 


OSI 


$8000 A-18 
$9000 A- 19 
$A0OO A-20 


$1000 A-F 
$1400 A-H 
$1800 E-16 
$1C00 A-J 


$0400 A-C 
$0800 A-D 
$OC00 A-E 
$1000 A-F 


$D400 write U20 - 9 
$D800 write U20 - 10 
$D400 read U20 - 13 
$D800 read U20 - 14 


A - Application Connector 
E - Expansion Connector 






Note: TOO is a 


74138 decoder chip on the OSI model 600 CPU board. 



Figure 2 

decode output 1 



10 REM SIMPLE TONE GENERATOR DEMO 

12 REM FOR OSI SUPERBOARD / C1P 

20 FOR I = 548 TO 567: READ BI 

25 POKE I,BI: NEXT : REM LOAD $224-237 

30 POKE 11,36: POKE 12,2 

35 REM SET ENTRY POINT FOR USR(l) 

40 D = 256 * RND (1):P = 256 * RND (1) 

50 POKE 546, P: POKE 547, D 

55 REM SET PERIOD AND DURATION 

60 X = USR (1) : GOTO 40 

70 DATA 173,0,216,136,208,5,206,35,2,240 

80 DATA 8,202,208,245,174,34,2,208,237,96 







ORG 


$0222 




PERIOD 


DFS 


1 




DURATN 


DFS 


1 


AD00D8 


SOUND 


LDA 


$D800 


DO 03 


LOOP 


BNE 


SKIP 


CE2302 




DEC 


DURATN 


F008 


SKIP 


BEQ 


DONE 


CA 




DEX 




D0F6 




BNE 


LOOP 


AE2202 




LDX 


PERIOD 


D0EE 




BNE 


SOUND 


60 


DONE 


RTS 





2c 



PR 



CLR 



decode output 2 



J 



control 
output 



74LS74 



+ 5 



decode 
output 



3 



1 



PR 



CK 



D Q 

CLR 



J 



control 
output 



74LS74 



decode output 1 



+ 5 



16 



1 



PR 



J 

CK 

K 



CLR 



decode output 2 



7476 



y 



15 



control 
output 



f 



CI 
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SOFTWARE FOR OSI 




A JOURNAL FOR OSI USERS!! 

The Aardvark Journal is a bimonthly tutorial for OSI 
users. It features programs customized for OSI and 
has run articles like these: 

1) Using String Variables. 

2) High Speed Basic On An OSI. 

3) Hooking a Cheap Printer To An OSI. 

4) An OSI Disk Primer. 

5) A Word Processor For Disk Or Tape Machines. 

6) Moving The Disk Directory Off Track 12. 

First year issues already available! 
$9.00 per year (6 issues) 



ADVENTURES 

Adventures are interactive fantasies where you give the 

computer plain English commands (i.e. take the sword, 

ook at the control panel.) as you explore alien cities, 

space ships, ancient pyramids and sunken subs. Average 

playing time is 30 to 40 hours in several sessions. 

There is literally nothing else like them — except 

being there yourself. We have six adventures available. 

ESCAPE FROM MARS - Explore an ancient 

Martian city while you prepare for your escape. 

NUCLEAR SUBMARINE - Fast moving 

excitement at the bottom of the sea. 

PYRAMID - Our most advanced and most 

challenging adventure. Takes place in our 

own special ancient pyramid. 

VAMPIRE CASTLE - A day in old Drac's 

castle. But it's getting dark outside. 

DEATH SHIP - It's a cruise ship - but it ain't 

the Love Boat and survival is far from certain. 

TREK ADVENTURE - Takes place on a 

familiar starship. Almost as 

good as being there. 



NEW SUPPORT ROMS FOR BASIC 
IN ROM MACHINES 

C1S - for the C1P only, this ROM adds full 
screen edit functions (insert, delete, change 
characters in a basic line). Softwave selectable 
scroll windows, two instant screen clears (scroll 
window only and full screen), software chose of 
OSI or standard keyboard format. Bell support, 
600 Baud cassette support, and a few other 
features. It plugs in in place of the OSI ROM. 
NOTE : this BOM also supports video conversions 
for 24, 32, 48 or 64 characters per line. Replaces 
video swap tape on C1P model 2. All that and it 
sells for a measly $39.95. 

C1E/C2E for C1/C2/C4/C8 Basic in ROM ma- 
chines. This ROM adds full screen editing, soft- 
ware selectable scroll windows, keyboard correc- 
tion (software selectable), and contains an ex- 
tended machine code monitor. It has breakpoint 
utilities, machine code load and save, block 
memory move and hex dump utilities. A must for 
the machine code programmer replaces OSI sup- 
port ROM. Requires installation of additional 
chip when installed inaC2orC4.C1 installation 
requires only a jumper move. Specify system 
$59.95. 



DISK UTILITIES 

SUPER COPY - Single Disk Copier 
This copy program makes multiple copies, 
copies track zero, and copies all the tracks 
that your memory can hold at one time — 
up to 12 tracks at a pass. It's almost as fast 
as dual disk copying. — $15.95 
MAXIPROSS (WORD PROCESSOR) - 65D 
polled keyboard only - has global and line edit, 
right and left margin justification, imbedded 
margin commands, choice of single, double or 
triple spacing, file access capabilities and all the 
features of a major word processor — and it's 
only $39.95. 



P.C. BOARDS 

MEMORY BOARDS!! - for the C1P. - and they 
contain parallel ports! 

Aardvarks new memory board supports 8K 
of 21 14's and has provision for a PIA to give a 
parallel ports! It sells as a bare board for $29.95. 
When assembled, the board plugs into the expan- 
sion connector on the 600 board. Available now! 

PROM BURNER FOR THE C1P - Burns single 
supply 2716's. Bare board - $24.95. 
MOTHER BOARD — Expand your expansion 
connector from one to five connectors or use it 
to adapt our C1P boards to your C4/8P. - $1435. 

ARCADE AND VIDEO GAMES 

GALAXIA one of the fastest and finest arcade 
games ever written for the OSI, this one features 
rows of evasive, hardhitting, dogfighting aliens 
thirsty for your blood. For those who loved (and 
tired of) Alien Invaders. — P.S. The price is a 
giveaway . SPECI FY SYSTEM ! 
Cassette $9.95 - Disk $12.95 

TIME TREK (8K) - real time Startrek action. 
See your torpedoes move across the screen! Real 
graphics — no more scrollina displays. $9.95 
INTERCEPTOR C1P ONLY! An all machine 
code program as fast and smooth as the arcades. 
You use your interceptor to protect your cities 
from hordes of enemy invaders. A pair of auto- 
matic cannons help out, but the action speeds up 
with each wave of incoming ships. The fastest 
and most excitingdP game yet. 
C1P Cassette $19.95 

MINOS - A game with amazing 3D graphics. 
You see a maze from the top, the screen blanks, 
and then you are in the maze at ground level, 
finding your way through on foot. Realistic 
enough to cause claustrophobia. — $12.95 



SINGLE STEPPER /MONITOR 

This is probably the finest debugging tool for 
machine code ever offered for OSI systems. Its' 
trace function allows you to single step through 
a machine code program while it continuously 
displays the A, X, Y and status registers and the 
program and stack pointers. You can change any 
of the registers or pointers or any memory loca- 
at any time under program control. It takes well 
under 1k and can be relocated anywhere in free 
memory. It is a fine tool for ail systems — and 
the best news of all is the extremely low price we 
put on it. -Tape $19.95- Disk $24.95 

FOR DISK SYSTEMS - (65D, polled key- 
board and standard video only.) 
SUPERDISK. Contains a basic text editor with 
functions similar to the above programs and also 
contains a renumberer, variable table maker, 
search and new BEXEC* programs. The BEXEC* 
provides a directory, create, delete, and change 
utilities on one track and is worth having by 
itself. - $24.95 on 5" disk ■ $26.95 on 8". 

AARDVARK IS NOW AN OSI DEALER! 

Now you can buy from people who can support 
your machine. 

- THIS MONTH'S SPECIALS - 

Superboard II $279 

C1P Model II 429 

C4P 749 

8K 610 board for C1P 269 

Epson MX-80 printer with RS232 installed 595 

. . . and we'll include a free Text Editor Tape 
with each machine! 

True 32X32 Video Mod Plans for C1P 

(4 Chips $3 .00 Crystal Required) 

$7.95 




This is only a partial listing of what we have to offer. We now offer over 100 programs, data sheets, ROMS, and boards 
for OSI systems. Our $1.00 catalog lists it all and contains free program listings and programming hints to boot. 

Aardvark Technical Services • 1690 Bolton • Walled Lake, Ml 48088 

(313)669-3110 




SPACE 
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You're in command in SPACE WAR' Destroy your 
opponent's ship by forcing him lo collide with the sun or to 
explode upon re-entry from hyperspace or challenge him 
face to face with missile lire You're m command of the speed 
and direction of your ship You control the timing of your 
missiles You select the game mode from five options 
including Reverse Gravity, and the battle begins Accel- 
erate to place your shots--and escape into hyperspace before 
your opponent comes within range But be wary he(orshe') 
may circle out of sight and reappear on the opposite side of 
the galaxy' (This is the classic MIT game redesigned 
especially for the Apple i 



tils , .m*s\ 



W> 



SUPER IMVflSIOM 



• Super Invasion is the original invasion game, with the original 
moon creatures and faster action than any other invasion game. 

• Features superb high resolution graphics, nail-biting tension and 
hilarious antics by the moon creatures! 

Self-running "attract mode" of operation for easy learning and 
demonstrating of the game. 

As good in every way as the famous Invaders arcade game. 



High speed action ! • Sound effects! 
Runs on the Apple II and the Apple II Pius 



-=CC?E*080dO 
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Fifty-five aliens advance and shower you with lethal writhing 
electric worms. As you pick off the aliens, one-by-one, they 
quicken their descent. They whiz across the screen wearing away 
your parapets, your only defense, coming closer and closer to 
your level. Super invasion is the original invasion game with the 
original moon creatures and faster action than any other invasion 
game on the market 

Super Invasion is available for only $19.95 on cassette 
(CS-4006) for a 32K Apple II. Space War is $14.95 on cassette 
(CS-4009) for a 16K Apple II. Space War and Super Invasion are on 
one disk (CS-4508) for a 48K Apple II for only $29.95. 

Send payment plus $1.00 shipping and handling to Creative 
Computing Software, P.O. Box 789-M, Morristown, NJ 07960. NJ 
residents add $1.00 sales tax. Bankcard orders may be called in 
toll free to 800/631-8112. In NJ call 201/540-0445. 
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software 
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Applesoft Variable Dump 



^^ 



This handy debugging utility 
presents you with a "DUMP" of 
current variable values, for 
Applesoft in ROM. 



Scott D. Schram 
1201 Greenview Rd. 
Collierville, Tennessee 38017 



This program searches through the 
memory used by ROM Applesoft and 
prints all non-subscripted variables. It 
can mainly be used as a debugging tool 
to see what is going on inside a piece of 
code. I chose not to print the array 
variables because no great need for it 
had come up. Also, array variable 
storage is considerably more complex. 
(See the Applesoft manual, p. 137.) 

You may enter this program into 
your assembler from the listing or key 
it in at .$4000 using the monitor. This 
location is right in the middle of 
memory and will rarely conflict with 
the Applesoft unless you have a giant 
program with lots of strings. Save the 
program on disk (BSAVE VARIABLE 
DUMP,A$4000,L$CE) or tape (*4000. 
40CDW). 

To use the program, stop execution 
of an Applesoft program and load the 
variable dump into memory. Then 
CALL 16384. You may BRUN 
VARIABLE DUMP from disk. See the 
sample run. Any simple variables will, 
work even if defined in the immediate 
mode. 

The screen may scroll too fast to 
read, so hit any key to stop the listing. 
Then hit any key to start it again. 
When the program is done, it will 
return to Applesoft. 



0800 




ROUTINE 


TO DUMP ALL SIMPLE VARIABLES TO CURRENT 


0800 




OUTPUT DEVICE. 




0800 












0800 












0800 












0800 












0800 






BY 






0800 












0800 




SCOTT SCHRAM 




0800 












0800 












0800 












0800 




EQUATES 






0800 












0800 


VARL 


EPZ 


$69 


APSOFT'S POINTER TO SIMPLE 


0800 


VARH 


EPZ 


$6A 


VARIABLE STORAGE. 


0800 


ARRAYL 


EPZ 


$6B 


APSOFT'S POINTER TO 


0800 


ARRAYH 


EPZ 


$6C 


END OF SIMPLE STORAGE. 


0800 


P0INTL 


EPZ 


$06 


POINTER TO 


0800 


P0INTH 


EPZ 


$07 


CURRENT VARIABLE. 


0.800 


SPL 


EPZ 


$9E 


STRING PRINT POINTER. 


0800 


SPH 


EPZ 


SPL+$1 




0800 


LEN 


EPZ 


SPH+$1 


LENGTH OF STRING TO PRINT. 


0800 


STROBE 


EQU 


$C010 


KEYBOARD STROBE 


0800 


KB0ARB 


EQU 


$C00O 


KEYBOARD 


0800 












0800 












0800 






APPLESOFT EQUATES 




0800 












0800 




(SEE 


APPLE ORCHARD MAR/APR 1980) 


0800 












0800 












0800 


( 


HVAYF 


EQU 


$E2F2 


APSOFT'S INTERNAL NUMBER 


0800 




PRTFAC 


EQU 


$ED2E 


HANDLING ROUTINES. 


0800 




10VEFH 


EQU 


$EAF9 




0800 




3UTDO 


EQU 


$DB5C 


; PRINT CHAR. IN A REG. 


0800 




CRDO 


EQU 


$DAFB 


; PRINT A CARRIAGE RETURN 


0800 




DUTSPC 


EQU 


$DB57 


j PRINT A SPACE 


0800 




APSOFT 


EQU 


$D43C 


; APSOFT'S WARM START 


0800 












0800 












0800 












1000 






ORG 


$4000 




4000 












4000 












4000 


1 


5 TART: 








4000 


20FBDA 




JSR 


CRDO 


PRINT A C.R. 


4003 


A569 




LDA 


VARL 


MOVE BYTES 


4005 


8506 




STA 


P0INTL 


FROM VARIABLE 


4007 


A56A 




LDA 


VARH 


POINTERS INTO 


4009 


8507 




STA 


POIKTH 


MY POINTER 


400B 


A506 I 


.OOP 


LDA 


POINTL 


SEE IF 


400D 


C56B 




CMP 


ARRAYL 


I AM AT TOP 


400F 


DO 09 




BNE 


PRINT1 


NO 


4011 


A507 




LDA 


POINTH 


CHECK HIGH BYTE 


4013 


C56C 




CMP 


ARRAYH 


IF BOTH ARE EQUAL THEN NO MORE 


4015 


D003 




BNE 


PRINT1 


SIMPLE VARIABLES LEFT. 


4017 


4C3CD4 




JMP 


APS0FT 


DONE. 


401A 












401A 




DETERMINE THE TYPE OF THE 


NEXT VARIABLE AND DISPATCH 


401A 




TO THE CORRECT. R0UTIME. 




401A 












401A 




'RINT1 








401A 


A000 




LDY 


#$00 




401C 


B106 




LDA 


(POINTL) ,Y 


THE HIGH ORDER BIT OF THE 


401E 


3008 




BMI 


INTGER 


NAME DETERMINES THE TYPE. 


4020 


C8 




I NY 






4021 


B106 




LDA 


(POINTL) ,Y 




4023 


1026 




BPL 


REAL 




4025 


4C6740 




JMP 


STRING 




4028 




INTGER 








4028 


C8 




INY 






4029 


B106 




LDA 


(POINTD.Y 


WEED OUT FUNCTION NAMES. 


402B 


105B 




BPL 


NXTS1 




402D 


209940 




JSR 


PRINTN 


INTEGER HANDLING STARTS HERE. 


4030 


A925 




LDA 


#$25 
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Note: This program is written to 
work with ROM Applesoft. To convert 
to disk or cassette would require con- 
siderable effort. If you want to convert 
it you will have to figure out the 
equivalent addresses in RAM Applesoft 
and change the equates in the listing. 

I welcome any comments. Please 
send them to the address at the begin- 
ning of trie article and include a S.A.S.E 
if you desire a reply. 



LIST 

10 AA = 98E + 05 
20 R$ = "THIS IS A 

TEST" 
30 N% = 2341 
40 RR = 12345 
50 FOR I = TO 10: 

NEXT I 
60 END 

]RUN 

]BRUN VARIABLE DUMP 

AA 9800000 

R $ THIS IS A TEST 

N % 2341 

RR 12345 

I 11 



]A=34567.98 
]BB%=-32767 
]CC$-"MOOSE" 
]DD==12324+98 

]N%==1232 

]BRUN VARIABLE DUMP 

A 34567.98 

BB% -32767 

CC$ MOOSE 

DD 12422 

N % 1232 



1032 205CDB 




JSR OUTDO 




1035 2057DB 




JSR OUTSPC 




4038 A002 




LDY #$02 




403A B106 




LDA (POINTD.Y 


; GET THE INTEGER 


403C AA 




TAX 




403D C8 




I NY 




403E B106 




LDA (POINTD.Y 




4040 A8 




TAY 




4041 8A 




TXA 




4042 20F2E2 




JSR GIVAYF 


j CONVERT TO FLOATING POINT 


4045 202EE0 




JSR PRTFAC 


; PRINT IT. 


4048 4C8540 




JMP NXTSIM 




404B 


REAL: 






404B 209940 




JSR PRINTN 


; REAL HANDLING STARTS HERE. 


404E 2057DB 




JSR OUTSPC 




4051 2057DB 




JSR OUTSPC 




4054 A407 




LDY POINTH 




4056 A506 




LDA POINTL 




4058 18 




CLC 




4059 6902 




ADC #$02 




405B 9001 




BCC CONT 




405D C8 




I NY 




405E 20F9EA 


;oht 


JSR MOVEFM 


; USE APSOFT INTERNALS TO 


4061 202EED 




JSR PRTFAC 


; DO THE DIRTY WORK. 


4064 4C8540 




JMP NXTSIM 




4067 STRING 






4067 209940 




JSR PRINTN 




406A A924 




LDA #$24 




406C 205CDB 




JSR OUTDO 




406F 2057DB 




JSR OUTSPC 




4072 A002 




LDY #$02 




4074 B106 




LDA (POINTD.Y 


; SET UP THE POINTERS FOR 


4076 85A0 




STA LEN 


; STROUT SUBROUTINE. 


4078 C8 




INY 




4079 B106 




LDA (POINTD.Y 




407B 859E 




STA SPL 




407D C8 




INY 




407E B106 




LDA (POINTD.Y 




4080 859F 




STA SPH 




4082 20AD40 




JSR STROUT 


; PRINT THE STRING. 


4085 








4085 


NXTSIM SETS THE VARIABLE 


POINTER TO THE NEXT VARIABLE. 


4085 








4085 NXTSIM 






4085 20FBDA 




JSR CRDO 




4088 18 NXTS1 


CLC 




4089 A907 




LDA #$07 




408B 6506 




ADC POINTL 




408D 8506 




STA POINTL 




408F 9002 




BCC CONT2 




4091 E60T 




INC POINTH 




4093 20BD40 C0NT2 


JSR WAIT 




4096 4C0B40 




JMP LOOP 




4099 








4099 


PRINTN PRINTS THE NAME OF THE CURRENT VARIABLE. 


4099 








4099 1 


>RINTN 






4099 A000 




LDY #$00 


; INDEX=0 


409B B106 




LDA (POINTD.Y 


; GET FIRST LETTER 


409D 205CDB 




JSR OUTDO 




40A0 C8 




INY 


; MOVE UP 


40A1 B106 




LDA (POINTD.Y 


j GET NEXT CHAR IN NAME 


40A3 297F 




AND #$7F 




40A5 D002 




BNE CONT3 


jIF THIS IS A SINGLE CHARACTER 


40A7 A9A0 




LDA #$AO 


;NAME THEN PRINT A SPACE. 


40A9 205CDB ( 


:0NT3 


JSR OUTDO 




40AC 60 




RTS 




40AD 








40AD 








40AD 


'STROUT PRINTS A STRING POINTED 


40AD 


TO BY SPL.SPH OF LENGTH LEN 


40AD 








40AD 








40AD ! 


>TH0UT 






40AD A000 




LDY #$00 




40AF C4A0 I 


.OOP1 


CPY LEN 




40B1 F009 




BEQ RTS1 




40B3 B19E 




LDA (SPD.Y 




40B5 2O5C0B 




JSR OUTDO 




40B8 C8 




INY 




40B9 4CAF40 




JMP L0OP1 




40BC 60 


iTS1 


RTS 




40BD 








40BD 








40BD 


WAIT 


LOOKS AT THE KEYBOARD 


40BD 


TO SEE IF A KEY WAS PRESSED. 


40BD 


IF SO, IT WAITS FOR A SECOND 


40BD 


KEY 


TO BE PRESSED BEFORE 


IT 


40BD 


RETURNS. 




40BD 








40BD 








U0BD ADOOC0 I 


(AIT 


LDA KBOARD 




40C0 10FA 




BPL RTS1 




40C2 AD10C0 




LDA STROBE 




40C5 AD00C0 V 


IAIT1 


LDA KBOARD 




40C8 10FB 




BPL WAIT1 




40CA AD10C0 




LDA STROBE 




40CD 60 




RTS 





f 
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Microprocessors in 
Medicine: The 6502 



Jerry W. Froelich, M.D. 

9 Brown Place 

Woburn, Massachusetts 01801 

Previously in this column we have not 
discussed applications where the com- 
puter helps in the "direct" manage- 
ment of patient therapy. In this issue 
we will describe a "PET" computer 
which keeps track of patients' data who 
are being treated with a blood anti- 
coagulant called warfarin | Coumadin]. 

Background 

There are several medical condi- 
tions where retarding of the rate at 
which blood clots is necessary to pre- 
vent further complications of the 
disease. The drug warfarin is ad- 
ministered to "slow down" the blood 
clotting mechanism. 

An example where anticoagulation 
is necessary is in a disease called "Deep 
Venous Thrombophlebitis" (DVT) 
where blood clots form in the deep 
veins of the legs. This condition is 
potentially life threatening in that a 
large blood clot may dislodge from the 
leg, travel through the heart, and lodge 
in the lung. If the clot is large enough it 
may totally block the flow of blood to 
the lungs resulting in shock or death, 
due to asphyxiation. 

Warfarin is used for the long-term 
treatment of diseases, but warfarin 
itself may be life threatening if ad- 
ministered in incorrect dosages. If too 
much drug is administered, blood 
vessels may bleed spontaneously. If too 
little, the clotting process won't be 
"slowed down." Therefore, drug 
dosage and drug breakdown (in the pa- 
tient) are critical to the use of warfarin. 
The predictable body metabolism of 
the drug makes it safe to use as long as 
the patient is monitored closely. 

Model of Anticoagulation Theiapy 

Dr. William F. Powers at the 
University of Michigan has approached 
anticoagulation therapy from the 
systems point of view. Although he 
was not the first to apply computer 



techniques to this problem, he was the 
first to use a microprocessor at the 
"bedside" to guide the physician and 
monitor anticoagulation therapy. The 
next several paragraphs (which refer to 
figure 1) discuss the algorithm used to 
model anticoagulation therapy, talk 
about the computerization of the 
algorithm, and show the equations for 
the dynamic model of anticoagulation 
therapy. 



G = -GKg + D[t) (1) 
Q = G Kg - Ke Q (2) 

P = Sm[l -F/F + KmJ - KpP [3] 

Where F approximately equal to 0.003 
Q / Warfarin distribution volume 
which is approximately equal to aQ. 
Then, 

P = Sm(l - Q/Q + K) -KpP (4) 

Where K = Km / a 



Figure 1: The basic equations for the 
dynamic model of anticoagulation 
therapy. 



Equation (1) assumes that the rate 
of absorption of warfarin from the in- 
testinal tract (the drug is taken by 
mouth) is proportional to the amount 
in the intestine, G. 

The warfarin dosage schedule is 
described by the function D( + ). Equa- 
tion (2) states that the instantaneous 
rate of change of the amount of war- 
farin in the body, Q, is given by the dif- 
ference between the rate of absorption 
from the intestinal tract and its rate of 
metabolism, the metabolism being a 
first order process. 

Equation (3) states the rate of the 
prothrombin complex activity, (p), a 
blood clotting parameter that monitors 
the extrinsic pathway of the coagula- 
tion cascade and is equal to the dif- 
ference between the rate of synthesis of 
the complex and its rate of degradation. 
The reduction in the rate of prothrom- 
bin complex synthesis below the nor- 
mal value (Sm) due to inhibition by 
warfarin is given by a Michaelis- 
Menter formulation, in which (F) is the 
concentration of free warfarin and (Km) 
the Michaelis constant. 

The parameters Kg, Ke, Kp, and K 
are subject-dependent parameters. One 
of the goals of the program is to rapidly 
reach estimates of the subject- 



dependent variables from the direct 
measurements of patient clotting time 
(prothrombin time tests). Once these 
parameters have been determined, the 
initial dosage may be optimized for a 
given patient. Subsequently, the pro- 
gram will be able to monitor changes of 
the patient's clotting time during the 
maintenance phase of drug adminis- 
tration (the daily dosage required to 
keep the clotting time in the thera- 
peutic range] . 

Dr. Powers has analyzed three 
methods (1) to calculate the patient- 
dependent parameters from Kg, Ke, etc. 
He also settled on a "tuned" extended 
Kalman filter method because it was 
accurate and it could compute the 
results within a few minutes, whereas 
other techniques require between 30 
and 60 minutes of computer time per 
case. 



Overview of the Programs 

Dr. Powers has written a series of 
programs. The early programs were 
mainly concerned about the simulation 
of the anticoagulation kinetics and 
estimation of the patient-dependent 
parameters. An example of the graph 
generated by the Kalman filter program 
is shown in figure 2. This graph 
displays both the measured and the 
computed prothrombin complex ac- 
tivities as a function of time. The 
patient-dependent parameters are also 
displayed at the top of the figure. 

The most recently written program 
is appropriately titled MAIN- 
TENANCE. This program is menu- 
driven and interacts with the user 
promoting a better man-machine inter- 
action. Figure 3 is an example of the 
menu. When the program is initially 
run the program requests various infor- 
mation about the patient being 
monitored: the patient's full name, 
phone number, parameters, and general 
comments. The program then requests 
the most recent laboratory values of the 
prothrombin complex activities. After 
entering the measurements the pro- 
gram can recommend a dosage and 
follow-up period (figure 4) from as few 
as four measurements. 

After each patient's data has been 
entered it can be saved on a floppy disk 
so that when the patient returns for 
another visit, the data file can be recalled. 
The program also flags such conditions 
as an abnormal response to therapy. 
The data files can be backed up by 
copying the disk. 
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The program was not designed to 
replace the physician, but rather to 
assist the physician in the management 
of patients. All recommendations 
regarding therapy must be checked 
against the physician's understanding 
of the therapy. By managing the pa- 
tients in this manner the computer and 
physician check each other and there- 
fore yield higher quality medicine. 

Summary 

The previous sections have described 
how an inexpensive microcomputer 
such as the Commodore PET 2001 can 
be utilized with modern techniques to 
rapidly assess therapy and recommend 
dosages for patients receiving an- 
ticoagulation therapy. The programs 
have been written in BASIC and the use 
of the PET computer is straightforward. 
Therefore, it requires only a matter of 
hours to teach medical personnel how 
to use the computer and programs. 

In the application of the anti- 
coagulation control problem, this 
model appears to be adequate for rapid- 
ly identifying patients who become 
refractory to anticoagulation therapy, 
estimating the time to reach the 
therapeutic range, and determining the 
proper dosage schedules to maintain 
the desired prothrombin times. Fur- 
thermore, this approach gives a 
systematic method for dealing with 
hard-to-control patients, and alerting 
the physician early in the therapy 
course that a particular patient may be 
difficult to anticoagulate. 
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Figure 2; Graphical display of the extend- 
ed Kalman Filter values. 




Figure 3: Example of the Menu selections 
from the MAINTENANCE program. 




Figure 4: Example of screen display for 
recommended therapy from the mainte- 
nance program. 
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®UersB Writer* APPLE II: 

The Keys to Unlimited Graphics 



DRAWING TABLET 

Although VersaWriter operates on a 
simple principle, it produces graphics 
which match or exceed those of other 
digitizers. Rugged construction, trans- 
lucent base, easy to use — plugs 
directly into APPLE II. 











GRAPHICS SOFTWARE 

Easily the most capable and com- 
plete graphics software for the home 
computer available. Fast fill drawings 
in 100 colors. All text in five sizes, 
compile and display shapes, edit, 
move and much more! 



UNIQUE OFFER 

See VersaWriter at your local dealer and 
pick up a copy of our demonstration 
disk. The complete VersaWriter hardware 
and software package is a real bargain 
at $249. For more Information call or 
write: 

Versa Computing, Inc. • 887 Conestoga Circle • Newbury Park, CA 91320 • (805) 498-1956 




M 



"SPECIAL INTRODUCTORY OFFER" 
Programmable Character Generator Board $89.95 

You can use OSI's characters or you can make your 
own. Imagine you can now do true high resolution 
graphics 512 x 256 dots in the 64 x 32 screen format. 
And all under your control! 

Other mods available — send for catalog. 

SOFTWARE (with Documentation) 
PC Chess V1. 9 $14.95 

Play Chess against your computer! 
Helicopter Pilot: (64 CHR Video Only) $ 8.95 

An Excellent Graphics Program! 
Golf Challenger $14.95 

From 1 to 4 players. Play a round of golf on your 18 hole 
golf course. One of the best programs I have ever seen! 
You can even design your own course. Comes with full 
documentation (14 pages). 

Two Very Intricate Simulations! 
Wild Weasel II: You operate a Sam Missile base during a 
Nuclear War. Not as easy as you think! You must 
operate in a three dimensional environment. 
Failsafe II: The shoe is on the other foot! Here you are in 
the attacking bomber and you must penetrate deep into 
enemy territory. Can you survive? An extremely complex 
electronic warfare simulation! SPECIAL: both for 19.95 



VISA 



MASTER CHARGE 



Hardware: C1P Video Mod: Makes your 600 Video every 
bit as good as the 4P and 8P. Gives 32/64 CHR/Line with 
guardbands 1 and 2 Mhz. CPU clock with 300, 600 and 
1200 baud for Serial Port. Complete Plans $19.95 

KIT(Hardware and Software) $39.95 

Installed: 32CHR — $79.95, 64CHR-$89.95 

Extra K of Video RAM for 64CHR not included! 

Set of 3 ROMs available $75.00 

C1P Sound Effects Board: Completely programmable! 

For the discriminating hobbiest, the best board on the 

market for creating sound and music. Can be interrupt 

driven so that you can use it for gaming purposes. Has 

on board audio amp, 16 bit interval timer, 128 Bytes of 

RAM and two 8 bit parallel I/O Ports. 

Assembled and tested $89.95 Bare Board $39.95 

Both include Prog. Manual and Sample Software. 

C1P HI Speed Cassette Kit: Gives a reliable 300, 600, 
and 1200 Baud. No symmetry adjustments — the ideal 
fix for OSI's cassette interface. Easily implemented in 
30 minutes. Will save you time and money even the first 
night you use it! $12.95 

Many, many more. Send for Catalog with free program 
(Hard Copy) and BASIC Memory Map. $1.00. Two 
locations to serve you: 

Progressive Computing 

3336 Avondale Court, Windsor, Ontario 

Canada, N9E 1X6 

(519) 969-2500 

or 

3281 Countryside Circle, Pontiac TWP, Ml 48057 

(313) 373-0468 
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Hot pursuit 
through space 
and the 
vortices 
of time! 





PRESENTS. 



Sime PtWtl 

The fallen Time Lord, who presumptuously calls himself The Master, is at large. 

The elders of Waldrom have supplied you with the hyperspace-worthy vessel 
Tardus, and commissioned you to eliminate the evil "Master". Your resources 
include clones who will fight for you, the formidable CRASER weapons of the Tardus, 
and magic weapons such as Fusion Grenades and Borelian Matrix Crystals. 

Traveling through hyperspace in search of the evil one, you will encounter Time 
Eaters, Neutron Storms, and other alien creatures and phenomena. Entering real 
space to search planets, you will encounter still other dangers. You will enter native 
settlements to buy food and supplies — or to fight for survival. 

And once you find The Master can you destroy him? 

Based on Dr. Who of PBS fame. 
Apple Integer Basic, 
Disk, 48K . . . $29.95 




TSfcHflRDSIIX 

6 South St.Milford. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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TSEHARDSIDE HAS IT ALL 
IN ONE! 

How many times have you wished that there was a single source for v 
your personal computer needs? Well look no further, TSE- 
HARDSIDE, located in pleasant New Hampshire, has virtually every 
conceivable item for your micro. Whether you're shopping for your 
Apple, Pet, TRS-80™ or Atari, TSE-HARDSIDE has it all. We stock 
hardware, software, books, magazines and specialty items for all of 
the popular machines. So the next time you're out shopping for your 
system don't be surprised, be satisfied. Remember the name TSE- 
HARDSIDE as your choice for quality, service and reliability. 





TS€:HPIRDSID€ 

6 South St .Mjlford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



■*y 
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Photo credit: GREAT GALAXY IN ANDROMEDA Palomar Observatory, California Institute of Technology 
THE MTU FLOPPY DISK CONTROLLER WITH 16K RAM GIVES YOUR AIM-65 ION DRIVE POWER? 



HARDWARE 

' 16K 2 PORT RAM ONBOARD WITH WRITE PROTECT 

• USES THE NEC-765 DISK CONTROLLER CHIP 

• ROM BOOTSTRAP LOADER SPEEDS LOADING 
' DMA OPERATION ALLOWS INTERRUPTS 

' SUPPORTS 8 INCH DRIVES 1 OR 2 SIDED 

• MAXIMUM STORAGE IS 4 MEGABYTES 

■ ANALOG PLL DATA SEPERATOR 

SYSTEM FEATURES 

■ FORMAT UTILITY LOGS OUT DEFECTIVE SECTORS 

■ DISK/FILE COPY WITH WILDCARD SELECTION 

■ SYSTEM CUSTOMIZATION UTILITY 

VISIBLE MEMORY TERMINAL DRIVER PROVIDED 
INTERCHANGE CODOS SOFTWARE 
AMONG KIM, SYM, AIM, PET SYSTEMS 
IN FIELD USE FOR OVER 6 MONTHS 



CODOS SOFTWARE 

• CODOS DISK OPERATING SOFTWARE 

• 8K RAM RESIDENT ALLOWS UPGRADES 

• FINDS AND LOADS 32K BYTES IN 3 SECONDS 

• STARTUP FILE EXECUTES AT BOOT-UP 

• COMMAND FILE EXECUTION FROM DISK 

• DYNAMIC DISK STORAGE ALLOCATION 

• DEVICE-INDEPENDENT i/O 

• TRUE RANDOM ACCESS TO RECORD IN ONE ACCESS 

• MONITOR WITH 29 BUILT-IN COMMANDS 

• FULL ENGLISH ERROR MESSAGES 

• FILE NAMES 12 CHARACTERS + EXTENSIONS 

• FILE SIZE UPTO 1 MEGABYTE 

• UPTO 247 FILES PER DISK DRIVE 

• INDIVIDUAL WRITE PROTECT ON FILES 

• WORKS WITH AiM EDITOR, ASSEMBLER. 
BASIC AND MONITOR ROMS 

• SUPERVISOR CALLS AVAILABLE TO USER PROGRAM 



K-1013M Hardware Manual- $10, K-1013-3M CODOS manual-$25, K-1013-3D RAM/Disk controller with CODOS-$595, Floppy 
drives, cables, power supply also available. 

MASTERCARD & VISA accepted 

WRITE OR CALL TODAY FOR OUR 48 PAGE FALL 1980 CATALOG DESCRIBING ALL MTU 6502 PRODUCTS, INCLUDING 
320 BY 200 GRAPHICS, AIM GRAPHIC/TEXT PRINT SOFTWARE, BANK-SWITCHABLE RAM/ROM/I-O, AIM CARD FILE, 
POWER SUPPLY AND MORE! 



Micro Technology Unlimited 



2806 Hillsborough St. • P.O. Box 12106 • Raleigh, N.C, 27605 • (919)833-1458 
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What is a variable? How are 
variables manipulated? This 
article gives the answers to both 
of these questions and 
discusses the similarity of FNx 
definitions to variables as well. 

Greg Paris 

625 Main St., #642 

Roosevelt Island 

New York, New York 10044 

All computer languages are, to some 
extent, symbolic in nature. This means 
that addresses, constants and variables 
may be used throughout a program and 
be manipulated by their labels, instead 
of using absolute or true values. 
Although the use of symbols is often 
merely convenient — as in assembler 
texts — in many circumstances the 
concept permits manipulations which 
otherwise would be impossible. 
Algebraic variables in BASIC or 
FORTRAN are just one important case. 
For these reasons, how a computer 
language defines and manipulates sym- 
bols is fundamental to the structure 
and operation of whatever interfaces 
between the user and the opcodes — an 
interpreter, compiler, etc. 

The varieties of symbol types allowed 
in any language determine, to a great 
extent, the power of that language to 
solve certain programming problems. 
The inherent accuracy of mathematical 
calculations is another example where 
the format of variable storage is 
critical. 

For these reasons, a logical first step 
in dissecting the operation of the 
BASIC interpreter is to find out how it 
defines its symbols, and how it stores 
them. The actual arithmetic and string 
manipulation is more complicated, and 
will be left for a later article. 

This article is organized as follows. 
First, I will make a few definitions. 
This will level out most readers' 



backgrounds, and obviously may be 
skipped if you know the jargon. Next I 
will describe the actual formats of both 
numeric and string variables. Then I 
will give a brief discussion of how 
BASIC uses RAM. Finally, I will com- 
bine all of the above to describe 
variable storage formats, and explain 
their coding. 

Definitions 

I caution the more advanced reader 
that I am not a software development 
engineer, and may not use the approved 
industry-standard terminology. 

Legal Variable Name: The BASIC 
manual defines a legal variable name to 
be "any alphabetic character, and [it] 
may be followed by any alphanumeric 
character... Any alphanumeric 
characters after the first two are ig- 
nored." In addition, one cannot embed 
reserved words into the variable name 
|A$ and AAAAAAA are legal variable 
names; %A is not, and neither is 
AGOTO). 

Variable: To the interpreter, a 
variable is anything that is not an array 
(no joke!). Any time you need to refer 
to only one number, or one string, or 
one whatever, it will be called a 
variable. For example, XI is a floating- 
point (or FP) variable, XI % is an in- 
teger variable, and Xl$ is a string 
variable. They are stored in different 
ways internally so the interpreter can- 
not be confused by these three identical 
variable symbols. You may be confused 
however, so use caution in such cases. 

Array: An array is any group of 
variables which is referred to by a com- 
mon legal variable name, followed by a 
list of subscripts — also called indices. 
The BASIC manual sometimes refers to 
arrays as "matrices." An array may 
contain either integer or FP numeric 
data or strings, but no more than one 
type per array. You are, in theory, 



allowed 255 subscripts; the real restric- 
tion is the line length which limits you 
to twenty or so. For example, DIM 
XI (2) allots space for a singly- 
subscripted FP array, and has room for 
3 numbers - X1(0), Xlfl), and X1(2J. 
Further, DIM Xl%(20) allots space for 
an array of 21 integer variables, and 
DIM Xl$(10,3) partitions space for a 
doubly-subscripted array of 44 
[(10 +l)x (3 + 1)] different strings. [A 
technical note: if an array is not dimen- 
sioned before it is used, the interpreter 
will automatically execute a DIM com- 
mand and thus assign each subscript 
the default value of 10.) 

Header: I define a header as any in- 
formation about a variable (how it is 
stored or referred to) that is stored 
along with the data to which it refers. 
For example, if the interpreter requires 
information about an array, including 
its size, how many subscripts, and the 
values of those subscripts, then the in- 
terpreter will group all this informa- 
tion, along with the variable name, in- 
to a header — the small block of ' 'data' ' 
which immediately preceeds the real 
data in the array. A header may be as 
short and simple as the 2 bytes of an en- 
coded variable name, or as detailed as 
the example just given. 

.WOR Address Format: When a 
16-bit address is to be stored in an 8-bit 
machine, it can be stored first byte 
(MSB) first, second byte (LSB) second, 
or in the reverse order. In assembler 
notation, the MSB-first arrangement is 
often referred to as ".DBY" (for "Dou- 
ble BYte"), whereas the reversed order 
— LSB-first — is called ".WOR" order 
(for "WORd"). Almost all addresses 
handled by the BASIC interpreter are 
stored in .WOR format, including those 
that may be embedded in headers. 

Numeric Variables 

There are two types of numeric data 
allowed in BASIC: integer and floating- 
point (FP). An integer number is stored 
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in two bytes, and can represent any in- 
teger between +32,767 and -32,768. 
An FP number is stored in 5 bytes (4 
bytes on OSI) and can represent 
numbers between ±1.7 x 10 38 and 
±2.94xl0~ 3 ?, and zero. This format 
for FP numbers allows at least 9 
decimal digit accuracy at all times. 

Since FP arithmetic as done by the 
BASIC interpreter is not germane, I will 
not detail its function in this article. 
Suffice it to say that there exists, in 
zero-page RAM, temporary storage 
areas for two FP numbers. The one 
most used is the floating-point ac- 
cumulator (or FPA] and is located at the 
addresses shown in figure 1-A. The FPA 
is five to seven bytes long — the second 
byte of the FPA contains the sign of the 
mantissa, which is incorporated into 
the leftmost bit (MSB) of the mantissa 
whenever a number is removed from 
the FPA. (The use of this bit for the sign 



need not confuse you, since in the FPA 
this bit is defined as being set, unless 
the number equals zero. Therefore, if it 
will always be 1, then it can be ignored 
during storage and used for another pur- 
pose, namely, to store the sign of the 
mantissa compactly.) In addition, there 
is a byte (see figure 1-A) which actually 
extends the FPA mantissa by 8 bits. It 
is used internally in all arithmetic 
operations, but is rounded off and strip- 
ped whenever a variable is removed 
from the FPA. The first byte of the FPA 
is the exponent of the number plus $80. 
If the number equals zero, then this 
byte is zero. 

Both types of variables, if referred to 
before being assigned a specific 
numeric value [i.e., if you use a 
previously undefined variable), will be 
filled with O's — hence, the default 
value in each case is zero. 



String Variables 

The "value" of a string variable, 
and the information stored in a string 
variable (or array) in RAM, are two dif- 
ferent things. The two items actually 
stored in the "variable" or "array" are 
a pointer (or a list of pointers) in .WOR 
format to the start of the string, and the 
length of the string. The string may be 
embedded in a program line, or stored 
in "top free space" (high RAM). 



If the string is empty ("null"), then 
the byte for string length is set to zero, 
and although it will then be ignored, 
both bytes of the pointer are zeroed. 
The size of any string is limited to 255 
characters because a single byte is used 
to indicate its length. 



r 





Figure 1-A: Locations of Floating-Point Accumulators 






Computer: 


AIM 65 


Applesoft 


OSI 
(BASIC- 
in-ROM) 


Old PET 

(1.0) 


New PET 
(2.0, 4.0) 


Length of FPA 


6 bytes 


7 bytes 


5 bytes 


6 bytes 


6 bytes 


Address of FPA 


$00A9-$00AE 


$009D-$00A3 


$00AC-$00B0 


$00B0-$00B5 


$O05E-$O063 


FPA extension 


$00B8 


($00A3) 


$00B2 


$00B7 


$0065 





Figure 1-B: BASIC Utility Pointers. 






Computer: 


AIM 65 


Apple 


OSI 

(BASIC-in-ROMJ 


Old PET 


New PET 


Address of pointer to: 












Start of 












BASIC program 


$0073 


$0067 


$0079 


$007A 


$0028 


(address:) 


($0212) 


($0801) 


($0301) 


($0402) 


($0402) 


Start of 












variable storage 


$0075 


$0069 


$007B 


$007C 


$002A 


($PPPP) 












Start of 












array storage 


$0077 


$006B 


$007D 


$00 7E 


$002C 


($RRRR) 












Start of 












free space 


$0079 


$006D 


$007F 


$0080 


$002E 


($UNUN) 












Top (end) of free space 


$007B 


$006F 


$0081 


$0082 


$0030 


($TTTT) 












Top of memory 


$007F 


$004C 


$0085 


$0086 


$0034 


($NONO) 













( 
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Usci Functions 

DEF and FNx are BASIC program 
statements which allow a user to define 
a unique function. Each FNx is labeled 
by a legal variable name, and this is 
why I discuss this statement in an arti- 
cle on variables. As detailed later, the 
BASIC interpreter stores a reference to 
each function definition in a complex 
header, filed under the variable name 
which is assigned to it by the user. 

How BASIC Uses RAM 

A memory map of how BASIC parti- 
tions space for its various needs is 
shown in figure 1-B. "Top free space" 
may be a new term to some readers. 
When BASIC is commanded to operate 
on strings, it designates an area in 
unused memory as work space [from 
$UNUN to $TTTT - 1), and then stores 
the result of any operation in "top free 
space" (from $TTTT to $NONO - 1). 

Also listed in figure 1-B are the zero- 
page locations which are reserved by 
BASIC to store pointers to various ad- 
dresses which are used frequently. 
These pointers are initialized upon en- 
try into BASIC, and are updated any 
time the program is changed or run. All 
pointers are stored in .WOR format. 



How Variable Names are Encoded 

BASIC reserves 2 bytes for the 
variable name (symbol). However, 
since the same name could refer either 
to an integer, FP variable, or a string, it 
must distinguish between them. It does 
this by setting or clearing, in various 
combinations, the otherwise unused 
leftmost bit (MSB) of each of the two 
bytes in the name. All four possible 
permutations are used. The interpreter 
performs this encoding during a RUN 
whenever a new variable name is en- 
countered, and uses the format describ- 
ed in table 1. If a variable name is only 
a single character, then the second 
character space allotted to it is filled 
with O's, except for the MSB, which is 
set or cleared as needed. 



Storage Formats 

Most of the details of variable for- 
mat and variable name encoding have 
been described. All that remains is to 
put the information together and 
describe what is actually found in 
memory from $PPPP to $UNUN- 1. 



Table 1: Format of encoding different types of variable names. 


If the legal variable name is AC, then: 




if the variable is 




then the symbol is encoded 
as these two bytes: 


a floating point numeric (no suffix) 




$41, $43 (MSB each byte clear) 


an integer numeric ( suffix = %) 




$C1, $C3 (MSB each byte set) 


a string (suffix = $) 




$41, $C3 (MSB first byte clear, 
MSB second byte set) 


an FNx definition variable 




$C1, $43 (MSB first byte set, 

MSB second byte clear) 



Figure 2: Variable and Array Storage Formats 

VARIABLES: 

Floating Point Numeric 

XX XX i. 2.3.4. 5. 

encoded ^ 

variable floating point number in 

name storage format 

Integer Numeric 

XX XX 12 00 00 00 



encoded 
variable 
name 




allotted, but unused and 
filled with zeros 



String Header 

XX XX ## PI PI 00 00 




encoded 
variable 
name 



FNx Header 



number" 

of bytes 

in string 



••pointer, .WOR format 
to first byte in string 



XX XX P2P2P3P3QQ 




/ 



Jffirst byte of actual 
definition for this FNx 



pointer to first byte of FP number 
used as dummy argument variable 
(byte numbered 1 above) 



pointer to the first byte of FNx 
definition in BASIC program storage 
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Variables are stored together, but 
separate from the arrays. However, in- 
teger numeric, FP numeric, string, and 
FNx definition variables are all inter- 
mixed. Arrays are stored in the next 
higher allocated RAM, and are also in- 
termixed. In both cases, the jumbled 
order is actually a function of when 
they are defined during the RUNning of 
a program. Each variable or array that is 
interpreted is assigned a space in the 
order in which it is encountered, with 
the variables and the arrays, each shut- 
tled off to their respective spaces. 

There is a reason for separating 
variables from arrays. Each item stored 
as a variable takes up exactly 7 bytes. 
This makes searching for variables very 
easy, as the interpreter's variable 
pointer need only increment by 7 bytes 
to look for the next variable. Since ar- 
rays can vary greatly in size, this 
technique is not applicable, and scan- 
ning for individual array entries is 
somewhat more time consuming. 



Each time the program begins RUN- 
ning, it executes a CLEAR instruction, 
which erases any reference to any 
variables and arrays which may have 
previously been defined. This CLEAR 
instruction sets the pointers located at 
$0075, $0077, and $0079 (on the AIM) 
to the same value — the address of the 
last byte of program storage, plus one. 
Similarly, the pointer at $007B ("top 
free space") is set to equal the address 
in $007F (top usable memory + 1). 



The headers for variables and ar- 
rays, and the formats in which they are 
stored in RAM, are shown in figure 2. 

The definition of a header should be 
clearer now. In both types of numeric 
variables, the header is simply the 2 
bytes of the encoded variable name. 
More complicated arrangements are 
seen in the FNx header and the various 
array headers. 

Variables: For an FP variable, all 7 
bytes are utilized. The last 5 bytes 
represent the FP number, in RAM 
storage form as described above. 



Figure 2 continued 

ARRAYS: 

Floating Point Numeric 

header 
S\ 



/ — " 

XX XX, ,## ## ## XNXNXMXM 

number of 
subscripts 
dimensioned 



■\ 




number of bytes in 
array, including header 
and all subsequent 
bytes: .WOR format 




five byte 
floating point 
number 



XN XN is the maximum index 
for each subscript (including 
zero) : .WOR format 



Integer Numeric 



XX XX 



## ## ## XN XN XM XM 



two byte integer number 
(.DBY storage format | 



1 2 



header same as above; 
variable name encoded 
differently 



String 



number of 
bytes in 
string 



XX 
\ 



XX M 



XN XN XM XM 



\y 

header same as above; 
variable name encoded 
differently 







two byte pointer 
to string: .WOR 
format 



f 
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Legend foi Figure 3 


A. Test program in 


BASIC. 


B. Zero page pointers to 


partitions in RAM (see figure 1-a). 


C. Dump of tokenized test program (partial). 


Note that D$ is 


found at $025B, and the definition of FNQ at $0241. 


D. Dump of v 


ariable and 


array storage. 


Note that the order of 


space assignment is identical to the discovered order 


in 


the program. 






E. Contents of "top free 


space", includes 'value' of E2$, found at $0FF1. 


A. 

10 


DIM AA(2) ,B%(2,3) 


20 


AA=2: 


B% = 


17 




30 


DEF FNQ(X) = 


X*AA 


40 


C=5.7207 






50 


D$ = "A 


STRING" 


60 


DIM C 


(2) 






70 


F%=-24 






80 


E2$ = " 


IS 


NOT 


"+D$ 


90 


STOP 








B. 
<M> = 


= 0073 


12 


02 


BASIC PROGRAM STARTS AT $0212 


< > 


0075 


98 


02 


VARIABLES START AT $0298 


< > 


0077 


DO 


02 


ARRAYS START AT $02D0 


< > 


0079 


ID 


03 


FREE SPACE STARTS AS $031D 


< > 


007B 


Fl 


OF 


FREE SPACE ENDS AT $0FF1 


< > 


007F 


00 


10 


TOP OF MEMORY IS $1000 


C. 
<M> = 


= 0212 


26 


02 


NEXT LINE IS AT $0226 


< > 


0214 


0A 


00 


THIS IS LINE 10 


< > 


0216 


85 


20 


•DIM 1 TOKEN, SPACE 


< > 


0218 


41 


41 


•AA" 


< > 


021A 


28 


32 


• (2' 


< > 


021C 


29 


2C 


'),' 


< > 


021E 


42 


25 


■B%' 


< > 


0220 


28 


32 


' (2« 


< > 


0222 


2C 


33 


',3' 


< > 


0224 


29 


00 


' ) ' , END OF LINE 


< > 


0226 


35 


02 


NEXT LINE IS AT $0235 


< > 


0228 


14 


00 


THIS IS LINE 20 


< > 


022A 


41 


41 


■AA' 


< > 


022C 


AC 


32 


•=' TOKEN, '2' 


< > 


022E 


3A 


42 


• :B' 


< > 


0230 


25 


AC 


•%', '=' TOKEN 


< > 


0232 


31 


37 


'17' 


< > 


0234 


00 




END OF LINE 


< > 


0235 


46 


02 


NEXT LINE IS AT $0246 


< > 


0237 


IE 


00 


THIS IS LINE 30 


< > 


0239 


95 


20 


'DEF' TOKEN, SPACE 


< > 


023B 


9F 


51 


'FN' TOKEN, ' Q' 


< > 


023D 


28 


58 


* (X' 



An integer variable only uses 4 of 
the 7 bytes allotted to it. Use of integer 
variables in your program therefore 
wastes some space, but could save time 
during interpretation. 

The string "variable" has a 5-byte 
header, made to fill 7 bytes by tacking a 
bunch of zeros on the end. 

The FNx header is very interesting. 
It is filed as a variable because it is 
defined with a variable name. Any legal 
variable name may be used as its label. 
In addition, any legal variable name 
may be used as the dummy argument 
variable, even one used elsewhere in 
the program, because before the inter- 
preter evaluates an FNx statement, it 
saves the value which was originally 
stored in the dummy variable on the 
Stack. If the dummy variable is a new 
variable, it is automatically created, 
allotted 7 bytes of space after the FNx 
header, and appropriately labeled as an 
FP variable. The FNx header is set up 
whenever a DEF FNx is performed. If 
this particular FNx is later redefined, 
only the original header is changed. 
The last byte in the header might not 
be used by the interpreter; it seems to 
be there only to clear the stack com- 
pletely during the DEF FNx operation. 

Anays: Not only do arrays have 
longer headers, but they also utilize 
space more efficiently. There is no 
minimum allotment of space, and con- 
sequently, no filler bytes are necessary. 
FNx arrays are not supported in this 
version of BASIC. 



The headers for each type of array 
are essentially identical in format and 
content. The first two bytes are the en- 
coded array name (see table 1). The 
next pair of bytes is a 16-bit number 
j.WOR format), the total number of 
bytes in the array. This includes the 
header with all its subscripts spelled 
out, and all the space allotted for the 
variables or string pointers. The fifth 
byte represents the number of sub- 
scripts used. The remainder of the 
header is a list of subscripts — a series 
of 16-bit numbers in . WOR format, one 
for each subscript — in an order that is 
the REVERSE of the listed order in the 
DIM statement. 



No. 36 -May 1981 



MICRO - The 6502 Journal 



35 



The actual storage format of the ar- 
ray contents is much the same as for a 
single variable. Each member of an FP 
array is allotted five bytes for storage, 
and each member of an integer array is 
allotted two bytes. Therefore, in con- 
trast to an integer variable, using in- 
teger arrays not only saves interpreting 
time but also a tremendous amount of 
space as well. Each entry in a string ar- 
ray is allotted three bytes, as before. 

Within the array, individual 
members are ordered in straightforward 
fashion, but not as simply as you'd ex- 
pect. Just as in the array header, the in- 
dividual members of an array are in a 
"reversed" ascending sequence. For 
example, if the statement DIM A(2,4) 
has been executed, then the order of 
members in the array is A(0,0J, A(1,0), 
A(2,0J, A|0,1), A(l,l], A(2,l],..., 
A(l,4), A(2,4). By analogy, this can be 
extended to any number of subscripts. 

An example is seen in figure 3. This 
program is intended only to demon- 
strate variable and array assignment. 
Note that all the pointers — FNQ and 
strings — point to the beginning of 
their respective referents. All the 
variables are ordered in the sequence in 
which they were interpreted; the arrays 
are similarly arranged in higher RAM. 
Note the encoded variable names for 
each assignment. 



Summary 

The following conclusions are of in- 
terest to anyone wishing to save execu- 
tion time and/or memory space. 1) The 
use of an integer variable is generally a 
waste, for two reasons: the integer 
must be defined by a "%" each time it 
occurs (at the cost of 1 byte per occur- 
rance], and, since it takes up 5 bytes 
anyway, even this doesn't save space. 
2) An integer array really does save 
space, if it is of sufficient size. 3) You 
can save a few bytes, and shorten ex- 
ecution time slightly, by using as a 
dummy argument variable one that has 
already been used in the program. Its 
actual value will not be lost during the 
execution of an FNx. 

These storage formats are not 
specific to one machine, and apply to 
those versions of Microsoft BASIC 
which are used on AIM, SYM, PET, 
OSI, Apple, etc. 



< 


> 


023F 


29 


AC 


') ' , ' = ' TOKEN 


< 


> 


0241 


58 


A6 


•X', '*' TOKEN 


< 


> 


0243 


41 


41 


'AA' 


< 


> 


0245 


00 




END OF LINE 


< 


> 


0246 


53 


02 


NEXT LINE IS AT $0253 


< 


> 


0248 


28 


00 


THIS IS LINE 40 


< 


> 


024A 


43 


AC 


■C 1 , '=' TOKEN 


< 


> 


024C 


35 


2E 


•5.' 


< 


> 


024E 


37 


32 


'72' 


< 


> 


0250 


30 


37 


•07' 


< 


> 


0252 


CO 




END OF LINE 


< 


> 


0253 


65 


02 


NEXT LINE IS AT $0265 


< 


> 


0255 


32 


00 


THIS IS LINE 50 


< 


> 


0257 


44 


24 


'D$' 


< 


> 


0259 


AC 


22 


'=' TOKEN, • "• 


< 


> 


025B 


41 


20 


•A ' 


< 


> 


025D 


53 


54 


•ST 1 


< 


> 


025F 


52 


49 


•RI' 


< 


> 


0261 


4E 


47 


'NG 1 


< 


> 


0263 


22 


00 


' " ' , END OF LINE 



r 



D. 








<M> = 


=0298 


41 


41 


< 


> 


029A 


82 


00 


< 


> 


029C 


00 


00 


< 


> 


029E 


00 




< 


> 


029F 


C2 


80 


< 


> 


02A1 


00 


11 


< 


> 


02A3 


00 


00 


< 


> 


02A5 


00 




< 


> 


02A6 


Dl 


00 


< 


> 


02A8 


41 


02 


< 


> 


02AA 


AF 


02 


< 


> 


02 AC 


58 




< 


> 


02AD 


58 


00 


< 


> 


02AF 


00 


00 


< 


> 


02B1 


00 


00 


< 


> 


02B3 


00 




< 


> 


02B4 


43 


00 


< 


> 


02B6 


83 


37 


< 


> 


02B8 


OF 


F9 


< 


> 


02BA 


73 




< 


> 


02BB 


44 


80 


< 


> 


02BD 


08 




< 


> 


02BE 


5B 


02 


< 


> 


02C0 


00 


00 


< 


> 


02C2 


C6 


80 


< 


> 


02C4 


FF 


E8 


< 


> 


02C6 


00 


00 


< 


> 


02C8 


00 





FP VARIABLE 'AA' 
VALUE IS 2 



INTEGER VARIABLE 'B' 
VALUE IS 17 



FN 'Q 1 

DEFINED AT $0241 

DUMMY VARIABLE VALUE AT $02AF 

FP VARIABLE 'X' 
VALUE IS 



FP VARIABLE 'C 
VALUE IS 5.7207 



STRING VARIABLE 'D' 
8 BYTES OF DATA 
AT $025B 



(D$) 



INTEGER VARIABLE 'F' (F%) 
VALUE IS -24 
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< > 


02C9 


45 


B2 


STRING VARIABLE '2 


' (E2$) 


< > 


02CB 


OF 




15 BYTES OF DATA 




< > 


02CC 


Fl 


OF 


AT $0FF1 




< > 


02CE 


00 


00 






< > 


02D0 


41 


41 


FP ARRAY 'AA' 




< > 


02D2 


16 


00 


USES 22 BYTES 




< > 


02D4 


01 




1 SUBSCRIPT 




< > 


02D5 


00 


03 


SUBSCRIPT = 2 




< > 


02D7 


00 


00 


ARRAY ELEMENTS ARE 


ALL 


< > 


02E6 


C2 


80 


INTEGER ARRAY *B' 


(B%) 


< > 


02E8 


21 


00 


USES 33 BYTES 




< > 


02EA 


02 




2 SUBSCRIPTS 




< > 


02EB 


00 


04 


SUBSCRIPT 2=3 




< > 


02ED 


00 


03 


SUBSCRIPT 1=2 




< > 

E. 
<M> = 


02EF 


00 


00 


ARRAY ELEMENTS ARE 


ALL 


= 0FF1 


49 


53 


'IS' 




< > 


0FF3 


20 


4E 


' N 1 




< > 


0FF5 


4F 


54 


i 0T i 




< > 


0FF7 


20 


41 


' A' 




< > 


0FF9 


20 


53 


■ S' 




< > 


OFFB 


54 


52 


■TR 1 




< > 


OFFD 


49 


4E 


•IN' 




< > 


OFFF 


47 




•G' 





Ed. Note: Integer variables are not 
supported by OSI and SYM BASIC. 

All you need to know about 
variables is here. Now you can design 
an UNDIM command, or figure out 
how to support FNx arrays. Or you can 
construct your own DATA SAVE and 
DATA LOAD routines for BASIC, link- 
ing them to the USR function, if 
necessary. What you will need in addi- 
tion to this article is the knowledge of 
which BASIC subroutines handle the 
finding of specific variables, or of 
specific entries in arrays, and how 
these subroutines work. I plan to ad- 
dress these and other topics in subse- 
quent articles. 



Greg Paris has been doing postdoctoral 
research in neurobiology, and hopes to 
program microcomputer-based 
instrumentation for a living. 



JMCftO 



32 K BYTE MEMORY 

RELIABLE AND COST EFFECTIVE RAM FOR 
6502 & 6800 BASED MICROCOMPUTERS 

AIM 65-*KIM*SYM 

PET*S44-BUS 

* PLUG COMPATIBLE WITH THE AIM-65/SYM EXPANSION 
CONNECTOR "BY USING A RIGHT ANGLE CONNECTOR 
(SUPPLIED) MOUNTED ON THE BACK OF THE MEMORY 
BOARD. 

« MEMORY BOAR0 EDGE CONNECTOR PLUGS INTO THE 
6800 S 44 BUS. 

* CONNECTS TO PET OR KIM USING AN ADAPTOR CABLE. 
» RELIABLE-DYNAMIC RAM WITH ON BOARD INVISIBLE 

REFRESH-LOOKS LIKE STATIC MEMORY BUT AT 
LOWER COST AND A FRACTION OF THE POWER 
REQUIRED FOR STATIC BOARDS. 

* USES *5V ONLY, SUPPLIED FROM HOST COMPUTER. 

* FULL DOCUMENTATION. ASSEMBLED AND TESTED 
BOARDS ARE GUARANTEED FOR ONE YEAR AND 
PURCHASE PRICE IS FULLY REFUNDABLE IF BOARD IS 
RETURNED UNOAMAGED WITHIN 14 DAYS. 

ASSEMBLED WITH 32K RAM $395.00 

* WITH 16K RAM $339.00 

TESTED WITHOUT RAM CHIPS $279.00 

HARD TO GET PARTS (NO RAM CHIPS) 

WITH BOARD AND MANUAL $109.00 

BARE BOARD S MANUAL $49.00 




U.S. PRICES ONLY 




I6K MEMORY 
EXPANSION KIT 



ONLY 



$58 



FOR APPLE, TRS-80 KEYBOARD, 
EXI0Y, AND ALL OTHER 16K 
DYNAMIC SYSTEMS USING 
MK4116-3 OR EQUIVALENT 
DEVICES. 

* 200 NSEC ACCESS, 375 NSEC 
CYCLE 

* BURNED-IN AND FULLY 
TESTED 

• 1 YR. PARTS REPLACEMENT 
GUARANTEE 

• QTY. DISCOUNTS AVAILABLE 



ALL ASSEMBLED BOARDS AND 
MEMORY CMPS CARRY A HILL ONE 
YEAR REPLACEMENT WARRANTY 



T P 
1230 w.coiuns AVE. 

ORAnGE, Cfi 92668 
(714)633 7280 
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SYM-1 
Communications Interface 



^ 



This program acts as a traffic 
cop in a three-way conversation 
between a SYM, a human at a 
CRT, and another computer via a 
modem. It directs messages to 
either the SYM or the modem on 
the request of the human 
operator, and makes sure the 
human gets to see both ends of 
the conversation. 

Nicholas J. Vrtis 
5863 Pinetree S.E. 
Kentwood, Michigan 49508 



It all started when I wanted to use an 
accoustic coupler to transfer programs 
to my SYM from another computer. At 
first glance, it looks easy enough. Hook 
the modem to the 20 mA TTY port, and 
connect the CRT to the RS 232 port. 
The problem with this arrangement is 
that although the two devices are elec- 
tronically separate, the SYM monitor 
doesn't distinguish between data 
received from these two ports. There 
are status bits in TOUTFL ($A654) 
which will allow me to control input 
and output to each of the devices 
separately, but the SYM still won't tell 
me where a character came from. There 
is also a bit in TECHO ($A653) which 
can be used to control echoing 
characters to either the CRT or TTY. 
The real problem though, is that I only 
wanted some data from the modem to 
be handed to the SYM monitor. It 
wouldn't have the foggiest idea what to 
do with a sign-on request from the 
other computer. The same is true for 
data from the CRT, only worse. Some 
of that had to go to the monitor to tell it 
to expect a program, and some had to 
go to the modem to tell the other com- 
puter to start sending it. Finally, I 
wanted to see all the data from both the 
monitor and modem on the CRT, and 
didn't want the monitor data to be 
transmitted by the modem. For the 
same reason I couldn't give data from 
the modem to the monitor. 



The solution turned out to be 
shorter than I first expected. About half 
of the work involved setting up the 
hardware and control bits the right 
way, and the other half was writing a 
short interface routine. Mechanically, 
the modem and the CRT have to be set 
up in full duplex mode, so they don't 
echo any characters. The SYM monitor 
will take care of that if we set the high 
order bit of TECHO on. The echo por- 
tion of the SYM monitor terminal in- 
put routine doesn't care where a bit 
comes from when it echoes it. Bits four 
and five of TOUTFL control which 
device the input byte is echoed to. It 
doesn't necessarily have to be the one it 
came from. If we set TOUTFL to enable 
input from both the CRT and the TTY, 
but only output to the CRT, then 
anything from either input device will 
be echoed to the CRT. Setting TOUTFL 
this way also means that any output 
from the monitor will only go to the 
CRT port, and not to the modem. It 
also means that anything entered at the 
CRT will not get transmitted to the 
modem, so we will have to use soft- 
ware later on to turn the TTY output 
bit back on when we want it. Finally, 
this requires that the modem and the 
CRT are both operating at the same 
baud rate. 



Now that we have the system all 
wired up, and the bits set, we find that 
things are arranged so anybody can talk 
to the CRT, but nobody can talk to 
anybody else accidentally. Now for a 
little software to add some smarts to 
the thing, and we are all set. The SYM 
vectors all input via an address in 
System RAM at $A661, called HMVEC. 
By putting the address of our routine 
there, it will have a chance to look at 
all the input and decide what to do with 
it, to a certain extent. We won't bother 
with the output side; we just have to be 
careful not to go to the monitor with 
the TTY output enable bit on. 



There are three characters which 
have special meaning to these input 
routines. The BELL character (hex $07 
— control G on my CRT) is used to in- 
dicate the start of a string to go to the 
monitor. The BELL is not sent to the 
monitor, but all characters following it, 
up to and including the next carriage 
return (hex SOD), do get sent. The 
semicolon (hex $3B) is very similar in 
meaning to the BELL, except that the 
semicolon itself is also returned to the 
monitor. This allows the transfer of 
paper-tape-format hex dumps to the 
SYM without requiring my program to 
precede each line with a BELL (and 
driving me crazy). I left four extra bytes 
in the program after the compare for 
the semicolon so you could change it to 
look for a range of characters. If you 4C\ 
patch the following in, you can check %y 
for numerics as the key character in- 
stead of the semicolon. 

CMP #'0' Check if less than 
ASCII zero 

BCC TRYP Branch if less 

CMP #':' Colon is ASCII nine 
+ 1 

BCS TRYP Branch if greater 
or equal 



This arrangement would be useful 
when transferring a BASIC program or 
other data with line numbers. Watch 
out for the number of null characters 
which BASIC needs at the end of a line 
for timing. The final special input 
character is the DLE [hex $10 — con- 
trol P on my CRT) . This performs the 
modem function corresponding to the 
BELL for the monitor. The method is 
different, though. Instead of returning a 
character via an RTS, the DLE routine 
causes the TTY output enable bit to be 
turned on in TOUTFL. When this bit is 
on, the SYM input routines will echo 
all characters from the CRT to both the 
CRT and the modem on the TTY port. g^ 
As with the BELL, the 'to modem' \J-' 
mode is in effect up to and including 
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the next carriage return. Unfortunate- 
ly, there isn't any way to implement a 
modem equivalent of the semicolon. 
Once a character has been received 
from the CRT, there just isn't enough 
time to turn around and transmit it via 
the TTY port. It technically could be 
done, but the person at the CRT would 
have to make sure that he waited at 
least one character time between each 
keystroke. If you type too fast, you end 
up transmitting garbage. 

The special input characters are 
looked for only when the output hasn't 
already been directed to either the 
monitor or the modem. Similarly, the 
carriage return is only meaningful if 
one of the output modes is set. Be 
careful, though, because a carriage 
return from either the modem or the 
CRT will reset the flags to output to 
neither the monitor nor the modem. 
The special input characters don't have 
to be at the beginning of a line, so it is 
possible to have the 'to monitor mode' 
set accidentally by the other computer. 
If you know, and/or think that these 
characters might arrive unexpectedly 
from the other computer, you may 
want to change the character looked for 
in the comparisons to something you 
probably won't be getting. The routines 
are not set up to allow a 'to modem' 
and 'to monitor' mode at the same 
time. You can have one, or the other, or 
neither, but not both. If you want a pro- 
gram on the SYM to talk to the modem, 
simply have it turn on the TTY output 
bit in TOUTFL before outputting, and 
turn it off when done. 



My final disclaimer is that these 
routines were not designed for long in- 
volved conversations between you and 
other computers. They were designed 
merely to transfer programs to the 
SYM. It can get rather tedious [not to 
mention noisy) preceding everything 
with BELL'S and DLE. 



SYM-1 Modem Communications 
Interfacei 

Theory: 

1. The terminal is connected to the 
CRT RS-232 port, the modem is 
connected to the TTY port. 

2. TOUTFL is set to $D0 — TTY and 
CRT input enabled, and TTY output 
disabled. Therefore any input from 
either TTY or CRT will appear on 
the CRT. 



0800 


1 


t it***************************** 


0800 


2 


;* 




* 


0800 


3 


>» SYM 


-1 MODEM COMMUNICATIOHS * 


0800 


4 


;* 


INTERFACE ROUTINE 


* 


0800 


5 


i* 




* 


0800 


6 


;* BY NICHOLAS J. VRTIS 


* 


0800 


7 


;* 




* 


0800 


8 


, ****************************** 


0800 


9 


.* 






0800 


10 


.* 






0800 


11 


MODFLG 


EPZ $FA 


;SPARE SYM-1 P.Z. AREA 


0800 


12 


TOUTFL EQU $A654 


.•TERMINAL OUTPUT FLAG BYTE 


0800 


13 


INTCHR EQU $8A58 


.■TERMINAL INPUT ROUTINE 


0800 


14 


ACCESS EQU $8B86 




0800 


15 


.* 






OFC0 


16 




ORG $FC0 


;BACK OUT OF THE WAY 


OFCO 


17 




OBJ $800 




0FC0 


18 


.* 






OFCO 20588A 


19 


MODEM 


JSR INTCHR 


;GET AN INPUT CHARACTER 


0FC3 297F 


20 




AND l$7F 


; STRIP PARITY 


0PC5 24FA 


21 




BIT MODFLG 


;CHECK CURRENT MODE 


0FC7 3027 


22 




BMI TOMON 


.-BRANCH IF TO THE MONITOR 


0PC9 702C 


23 




BVS TCMOEM 


;OR IF TO THE MODEM 


0FCB 


24 


.* 






0FCB C93B 


25 




CMP I';' 


;IS THIS FOR THE MONITOR 


OKD D007 


26 




BNE TRYP 


;NO 


0FCF 


27 


.* 

i 






0FCF EAEAEA 


28 




HEX EAEAEAEA 


; PATCH AREA FOR EXTRA COMPARE 


0FD2 EA 










0FD3 


29 


.* 






0FD3 66FA 


30 




ROR MODFLG 


;ROLL CARRY INTO FLAG FOR "TO MONITOR' 


0FD5 60 


31 




RTS 


,-AND THIS WILL GIVE IT TO MONITOR 


0FD6 


32 


.* 






0FD6 C907 


33 


TRYP 


CMP IS07 


.•MONITOR SELECT CODE ?? 


0FD8 D004 


34 




BNE TRYS 


;NO 


0FDA 66FA 


35 




ROR MODFLG 


;ROLL CARRY TO SET 'TO MONITOR' BIT 


0FDC D0E2 


36 




BNE MODEM 


,-AND IGNORE THIS CHARACTER 


OFDE 


37 


.* 






OFDE C910 


38 


TRYS 


CMP #$10 


j MODEM SELECT CODE? 


0FE0 CODE 


39 




BNE MODEM ' 


,-NO— IGNORE THIS CHARACTER 


0FE2 


40 


.* 






0FE2 A2F0 • 


41 




LDX l$F0 


.-TURN ON TTY OUTPUT ALSO 


0FE4 A940 


42 




LDA l$40 


,-YES— TURN ON 'TO MODEM' MODE 


0FE6 2086SB 


43 


STFLAG JSR ACCESS 


.-MAKE SURE CAN UPDATE SYSTEM RAM 


0FE9 8E54A6 


44 




STX TOUTFL 


; STORE NEW FLAG SETTING 


0FEC 85FA 


45 




STA MODFLG 


; STORE NEW MODE SETTING 


0FEE OOD0 


46 




BNE MODEM 


.•UNCONDITIONAL— IGNORE THIS ONE 


OFF0 


47 


.* 

t 






OFF0 C90D 


48 


TOMON 


CMP #$0D 


;IS THIS NEXT CARRIAGE RETURN? 


0FF2 D002 


49 




BNE *+4 


; NO— PASS IT ON 


0FF4 85FA 


50 




STA MODFLG 


; YES— SET MODE BITS OFF 


0FF6 60 


51 




RTS 


;AND RETURN TO THE MONITOR 


0FF7 


52 


.* 
i 






0FF7 C90D 


53 


TCMODM CMP t$0D 


,-WAS IT A CARRIAGE RETURN? 


OFF9 DOC5 


54 




BNE MODEM 


;NO-IT IS ALREADY ECHOED TO THE TTY 


OFFB A2D0 


55 




LDX «$D0 


;YES— TURN OFF TTY ECHO BIT 


0FFD D0E7 


56 




BNE STFLAG 


;NEW FLAG, $0D TURNS OFF MODE SET 


0FFF 


57 


.* 






0FFF 


58 


ZZZEND ECU *-l 


.•LAST BYTE OF PROGRAM 



3. TECHOmustbeset"to$80soinput 
is echoed to the CRT. 



4. THE CRT must be in full duplex 
mode. 

5. Address of 'MODEM' replaces 
address of 'INTCHR' in 'LNVEC. 

6. 'MODEM' is normally waiting to 
return a character to the monitor via 
the RTS. 

7. The CRT and TTY must be at the 
same speed. 

8. To direct output to the modem from 
the CRT, the TTY echo bit is turned 
on in TOUTFL. 



9. No direct provision is made for the 
CPU to talk to the modem. 

Functions: 

';' gets returned to the monitor and 
sets 'TO MONITOR' mode. 

All following characters to next 
C/R also go to monitor. 

Bell ($07 J does not go to monitor, 
but does set 'TO MONITOR' mode. All 
following characters to next C/R also 
go to the monitor. 

DLE ($10) does not go to modem, 
but does set 'TO MODEM' mode. All 
following characters to next C/R also 
go to the modem. 

JUCRO 
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25:23 
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OHIO SCIENTIFIC USERS 

Software - game and utility programs for as low as $1.00. all 
with listings and complete documentation. 

kits - update your computer to play music, increase operating 
speed, high resolution graphics and much more. kits include 
parts and complete assembly instructions. low as $3.00. 

our $1.00 catalog includes osi programming tips plus descriptions 
of available programs and kits. 

MITTENDORF ENGMEERMG 905 VLLA NUEVA DR. UTCHRELD PARK,AZ 85340 
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EDIT 6502 



T.M. LJX 




Pass Assembler, Disassembler, and Editor Single Load Program 

DOS 33., 40/80 Columns, for Apple II or Apple II Plus* 




A MUST FOR THE MACHINE LANGUAGE PROGRAMMER. Edit 6502* is a two pass Assem- 
bler, Disassembler and text editor for the Apple computer. It is a single load program 
that only occupies 7K of memory. You can move freely between assembling and disas- 
sembling. Editing is both character and line orientated, the two pass disassemblies 
create editable source files. The program is so written so as to encompass combined 
disassemblies of 6502 Code, ASCII text, hex data and Sweet 16 code. Edit 6502 makes the 
user feel he has never left the environment of basic. It encompasses a large number of 
pseudo opcodes, allows linked assemblies, software stacking (single and multiple 
page) and complete control of printer (paganation and tab setting). User is free to 
move source, object and symbol table anywhere in memory. Requirements: 48K of 
RAM, and ONE DISK DRIVE. Optional use of 80 column M&R board, or lower case availa- 
ble with Paymar Lower Case Generator. 

TAKE A LOOK AT JUST SOME OF THE EDITING COMMAND FEATURES. Insert at line » n Delete a character 
Insert a character Delete a line # n List line # nl, n2 to line » n3 Change line t nl to n2 "stringl" Search 
line # nl to n2 "stringl". 

LJK Enterprises Inc. P.O. Box 10827 St. Louis, MO 63129 (314)8464124 

'Edit 6502 T.M. ill LJK Ent Inc. — 'Apple T.M. of Apple Computer Inc. 



LOOK AT THESE KEY BOARO FUNCTIONS: Copy to the end of line and 
exit: Go to the beginning of the line: abort operation: delete a 
character at cursor location: go to end of line: find character 
after cursor location: non destructive backspace: insert a 
character at cursor location: shift lock: shift release: forward 
copy: delete line number: prefix special print characters. Com- 
plete cursor control: home and clear, right, left down up. Scroll a 
line at a time. Never type a line number again. 

All this and much much more — Send for FREE Information. 
Introductoiy Price $50.00. 
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H1©f 

Up la© I 



■ W# accept !$*#•# 0Mj9f cnMK <4fllst : 



?_«....•; npi 



formwlv Computers "»' Us 



OPEN EVERY DAY 9 to 6 PST 

California, Alaska & Foreign orders (714) 696-6066 

Shipping Information or Backorders coll (714) 696^260 

Service Center ond for Technical Information (714) 460-6502 



moil order 



ORDER TOLL FREE 

800-654-6654 



,-^_/. 



[appkz computer 

" Authorized Dealer 



ALL EQUIPMENT IS 
FCC APPROVED. 



APPLE II PLUS 16K....".... 1049 
APPLE II PLUS 48K 

(APPLE Memory). 1189 

APPLE II Standard Models. . . CALL 
DISK II DRIVE & CONTROLLER. 529 
This model includes DOS 3.3 16 sector 

TOT FIVE SELLERS 

Language System W/Pascal 425 

5ilentype Printer W/lnterface 549 

Hayes Micromodem II 319 

Videx Videoterm 80 w/grophics 335 

Z80 Microsoft Card 299 

AMI COMPUTER INC. 

Disk II Drive Only 445 

Integer or Applesoft II Firmware Cord . . 155 

Graphics Tablet 649 

Parallel Printer Interface Card 155 

Hi-Speed Serial interface Card 1 55 

Smarterm SO Column Video Cord 335 

MOUMTAM COMPUTER IMC. 

Music System (16 Voices) 479 

A/D + D/A Interfoce 319 

Expansion Chassis -~- 555 

lntrol/X-1 System 249 

Clock/Calendar Card 239 

Supertalker SD-200 249 

Romplus + Card 135 

Romwriter Cord 1 55 

CALIFORNIA COMPUTER SYSTEMS 

Clock/Calendar Module 1 09 

GPIO IEEE-488 Cord 259 

Asynchronous Serial Interface Card 1 29 

Centronics Parallel Interface Cord 99 

We carry all CCS hardware. Please call 

MISC. APPLE HARDWARE 

16K Rom Card Microsoft 189 

ADT Numberic Keypod(old or new kybrd) 115 

ALF 3 Voice Music Card 229 

Alpha Syntauri Keyboard System 1399 

Corvus 10MB Hord Disk CALL 

Lazer Lower Case Plus 50 

Miao-Sci Disk Drives CALL 

5SM AIO Serial/Parallel Card A&T 189 

Sup-R-Terminol 80 Col. Cord 339 

SVA 8 inch Floppy Disk Controller 345 

Versowriter Digitizer Pad 229 

VE HAVE MAMY MORE ACCESORHS 
FOR THE APPLE I M STOCK- 
PLEASE CALL OR WRITE FOR A PRICE LIST. 



A 

ATARI' 

MODEL 

800 16K 

$799 



imfc 



MM 



n fAWBIg>c»-'" 



Atari 400 1 6K 499 

810 Disk Drive 499 

410 Program Recorder 69 

650 Interface Module 175 

822 Thermal Printer (40 col) 369 

825 Printer (80 col) 795 

Atari 1 6K Rom Module 1 55 

Atari Light Pen 65 

Wo nock all Atari accouorioi 6 
software, ptoato call for moro Info. 



PRINTERS 



Anodex DP-9500 W/2k Bujfei_, 1375 

Anadex DP-9501 W/2K Buffer 1450 

C. Itoh Storwriter 25 CPS 1750 

C. Itoh Storwriter 45 CPS 2450 

Centronics 737 825 

Epson MX- 70 W/Graphics 449 

Epson MX-80 132 Col 620 

Paper Tiger IDS-445 W/Dot Plot 749 

Paper Tiger IDS-460 W/Dot Plot 1 1 95 

Paper Tiger IDS-560 W/Dot Plot 1495 

Qume Sprint 5/45 Doisywheel 2550 

5ilentype w/lnterface for Apple II 549 

Watonabe Digiplot . 1 295 



VIDEO MONITORS 

Amdex/Leedex Video-100 12" B&W. ... 139 

Hitachi 13" Color 389 

NEC 1 2" P31 Green Phospher CALL 

Ponocolor 1 0" Color 375 

5anyo 9" B&W 179 

Sanyo 1 2" B&W 255 

Sanyo 1 2" P31 Green Phospher 295 

Sanyo 1 3" Color 445 



Challenger 4P 699 

C4PMF (Mini Floppy System) . 1 599 

CIP Model II 449 

Sargon II (Disk or Cassette). ... 35 
Fig Forth (Disk Only) 69 



APPLE SOFTWARE 

DOS Toolkit 65 

Appleplot 60 

Tox Planner 99 

Apple Writer 65 

Apple Post 45 

D.J. Portfolio Evaluator 45 

D.J. News & Quotes Reporter 85 

Apple Fortran 1 65 

Apple Pilot 129 

DOS 3.3 Upgrade 49 

Music Theory 45 

The Controller Bus. Sys 519 

MISC. APPLICATIONS PACKAGES 

Visicalc 125 

Desktop Plan II 169 

CCA Data Management DMS 85 

Easywriter Word Processor 225 

ASCII Express 65 

Super Text II 139 

Programme Apple Pie 119 

The Landlord Apt. Mgmt. Pkg 649 

Peachtree Business Software CALL 

Tax Preparer by HowardSoft 89 

Applebug Assem/Disassm/Editor 75 

3-D Graphics By Bill Budge 53 

GAMES 

Flight Simulator 34 

The Wizard and The Princess 32 

Cosmos Mission (Space Invaders) 24 

Sargon II Chess 32 

Hi-Res Football 39 

Adventure by Microsoft 27 

Phontoms Five 39 

Reversal (Othello) 34 

PLEASE CALL OR WRITE 
FOR A COMPLETE 
SOFTWARE LIST. 



ORDERING INFORMATION: Phone Orders invited using VI5A, MASTERCARD, AMERICAN EXPRESS, DINERS CLUB. CARTE BLANCHE, or bonk wire transfer. Credit 
cards subject to service charge, 2% for VISA & MC, 5% for AE, DC 6 CB. Mail Orders may send credit cord account number (include expiration date), 
cashiers or certified check, money order, or personal check (allow 10 days to clear). Please include a telephone number with all orders. Foreign orders (excluding 
Military PO's) add 10% for shipping oil funds must be in U.S. dollars. Shipping, handling ond insurance in U.S. odd 3% (minimum $4.0C). California 
residents add 6% sales tax. We accept COD's under $500. OEM's. Institutions & Corporations please send for written quotation. All equipment is subject to 
price change and ovailobillty without notice. All equipment is new ond complete with manufacturer warranty (usually 90 days). We cannot guarantee 
merchantibility of ony products. We ship most orders within 2 days. 

WE ARE A MEMBER OF THE BETTER BUSINESS BUREAU AND THE CHAMBER OF COMMERCE 
SHOWROOM PRICES MAY DIFFER FROM MAIL ORDER PRICES. 
PLEASE SEND ORDERS TO: 
CONSUMER COMPUTERS MAIL ORDER 6014 PARKWAY DRIVE, 6ROSSMONT SHOPPIN6 CENTER NORTH LA MESA CALIF. 92041 
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GET FREE ADS ON TV ! 



GET FREE SOFTWARE TOO! 



How? Use our ADVERTISING SOFTWARE! You put it in the APPLE and produce 
colorful, dynamic adl on the screens of TV sets in your shop window. Even if you are 
not a shop owner, you can use this software to broadcast ii emau e s on TV screens in 
schools, hospitals, factories, eta The following message-miking programs are available. 

SUPER MESSAGE: Creetes messages in full-page "chunks". Each name allows state- 
ments of mixed rypettvlet, typesizes and colors, in mixed upper & lower case. Five type- 
styles are available. They range from regular APPLE characters, up to double-size, 
double-width characters with a heavy, bold font Six colors may be used for each 
different typestyle. Vertical & horizontal centering are available, and word-wrap is auto- 
matic. Users can chain pages together to make multi-page messages. Pages can be advan- 
ced manually or automatically. Multi-page me is age I can be stored to disc or recalled 
instantly. 
REQUIRES 48K & ROM APPLESOFT $ SO. 

MULTI-MESSAGE with INTERLEAVED COLOR PATTERNS: Up to 10 messages cen 
b» run in sequence.. Colorful, dynamic patterns (kaleidoscope or ebstraet art) can be 
in t erle a ved between messages, at user option. Consists of 28 crisp, readable characters/ 
NneX4 lines/pageX3 pages of text per message. Characters are 1/8 screen-height end 
"puff" onto the screen at comfortable reading speed. 

REQUIRES 32K* INTEGER BASIC J 38. 

HI-RES ALPHANUMERIC MESSAGE: Same as Multi-Message above, but has only one 
message/set and no interleaved color-ostterns. Still very good general message-maker! 
THE SCROLLING WONDER: 4 brief messages appear in APPLE uppercase characters 
by "floating" onto the screen from below. M an age s enter in random sequence, with ran- 
dom 50% of iiiiiiisuhi "flash". A multiple-rainbow grand finale ends the program. Very 
good program to run et point of purchase. 

GIANT LETTER: BrilriantJy-colored letters, of full screen height, appear one-at-a-time, 
in sequence, to spell out m eai ig B f , Successive words have different colors. A running 
summary of letters, in APPLE characters, appears in the bottom 4 lines of the screen, as 
die giant letters are presented. Vary good program for shop windows, 

ALL 3 ABOVE TOGETHER, ON DISK, FOR 32K, INTEGER BASIC $ 3a 

LET APPLE PLOT YOUR DATA AND KEEP YOUR RECORDS TOOI 
APPLE DATA GRAPH 2.1: Plots up to 3 superimposed curves on the Hi-res Screen 
both the X & Y exes dimensioned. Each curve consists of up to 120 pieces of data. 
Graphs can be stored to disc and recalled immadiatefy for updating. Up to 100 graphs 
an be stored on the same disc. Greet for Stock-market Charting, Business Management, 
end Classroom Instruction! 
REQUIRES 48K& ROM APPLESOFT $ 40. 

APPLE RECORD MANAGER: Allows complete files to be brought Into memory so that 
record leaiilMiarwirraaiapulatkiraam a i stB ii u Miaous. Records within any file can contain 
up to 20 fields, with user-defined h aedin u ji In f or m a ti on can be siring or numeric Users 
can p r o w a s thru files using page-forwarri rjage-backward or rando m a es r cl i commands 
Records can easily be saa u lM Hi , altered or sorted at wilL Files can be stored on the same 
drive as the master program, or on another, if a second drive is available. Records or files 
can be printed. If desired. Additional modules coming are a STATISTICS INTERFACE, 
CHECKBOOK. MAI LING LIST & DATA-ENTRY. 
REQUIRES 48K4 ROM APPLESOFT $ 36. 

• All Softwereabove on Disk for APPLE DOS 3.2 



How? Order eny of the hems below, and for each $100 worth of merchandise ordered, 
we will give you one of the items at left for FREE! 

APPLE ADD-ONS 

HAYES MICROMOOEM for APPLE $ 300. 

Z80 SOFTCARD by MICROSOFT $ 27B. 

16K RAMCARD by MICROSOFT $ 159. 

FORTRAN for APPLE by MICROSOFT i 159. 

COBOL for APPLE by MICROSOFT $ 599. 

BASIC Comoiler for APPLE by MICROSOFT $315. 

PRINTERS 

CENTRONICS 737 (3 mo. warranty) $ 796. 

CENTRONICS 737 (15 mo. warranty) S 915. 

EPSON.MX-70withTRACTORS&GRAPHICS t 400. 

EPSON MX-80 with TRACTORS & 132 Columns S 615. 

PAPER TIGER 460G with GRAPHICS St 2K Buffer $ 1 136. 

PAPER TIGER 445G with GRAPHICS &2K Buffer $ 749. 

WORD PROCESSING 

EZ WRITER PROFESSIONAL SYSTEM for APPLE $ 239 

EZ MAILER (Interfaces to EZ WRITER above) $ 65. 

VIDEX VIDEOTERM (80-Column Card for APPLE) $ $ 295. 

VIDEXVIDEOTERM(SameesebovewrthGRAPHICS) $320. 

SUPRTERM (80-Cokimn Card for APPLE) $ 320 

BUSINESS PROGRAMS for APPLE a TR-80 by SPECTRUM SOFTWARE 

MICROACCOUNTANT: An ideal package for the very small business, based upon classic 
T-sooounts & Double-Entry Bookkeeping This efficient program records and produces 
reports on account balances, general ledger journals, revenues & expanses, 40-column or 
screen reports. Handles up to 1000 journal entries/month, for up to 300 accounts. 
Includes a short primer in Financia! Accounting. 
REQUIRES 48K & ROM APPLESOFT $ 49. 

BUSINESS CHECK-REGISTER with BUDGET: Unique system allows setting up pre- 
defined purpose & recipient accounts (50 each). Supports unique nemos tea Rapid- 
accoss to check-files with scrolling display & 40coL printout if desired. Up to 100 
checks/ma + recondHation + AUTOMATIC BUDGET VARIANCES! 
REQUIRES 48K & APPLESOFT ROM * 49. 

STOCK MARKET 

STOCK MARKET ANALYSIS for APPLE by GALAXY $ 49. 

COD'S & Personal Checks are Welcomel 



CONNECTICUT INFORMATION SYSTEMS CO. 
218 Huntington Road, Bridgeport, CT 06608 (203) 579-0472 




APPLE ARCADE 



Asteron • The definitive hi- 
res Implementation of the As- 
teroids arcade game. Fea- 
tures: Ship movement, hyper- 
space, alien saucers, sound 
effects, graphic routines 
allowing up to 25 objects to 
be displayed with real time re- 
sponse. Played from paddles 
or keyboard. $27.50 

Available Now! 



MultiBoot™ Upgrade 

Have you not wished that your 
Elasic software would work in both 
DOS 3.2 and DOS 3.3? Tired of 
spending hours "Muffin"ing your 
old programmes? Now your prob- 
lems are solved with MultiBoot™ 
Upgrade. Upgrade a whole disc in 
Just seconds and use your disc on 
any of DOS 3.3, DOS 3.2 and the 
Language Card. 

$50.00 
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Shooting Gallery 

Shooting Gallery ■ a real 
time simulation of a midway 
arcade. Features: row targets, 
pop targets, different -skill 
levels, and bonus time. May 
be played using either game 
paddles or joy sticks. £QO CQ 

All Western MicroData game software is 
written in assembly language for maximum 
speed. All programmes require 48K and 
DISK DRIVE and will work on standard 
Apple II, Apple II plus, and Pascal systems, 
with either DOS 3.2 or DOS 3.3. 

Western MicroData 
Enterprises Ltd . 

P.O. Box G33, Postal Station G 
Calgary, Alberta 
Canada f3A2Wl 
1-403-247-1621 




l/TW -^ 

' Star Avenger -High speed 
guerrilla warfare in space pit- 
ting you against your Apple. 
Featuring a new universe 
each game and varying skill 
levels. Universe consists of 
16 hi-res screens with instant- 
aneous crossover. $27 50 



For U.S. and foreign orders, 
prices are In U.S. dollars. For 
Canadian orders, prices are in 
Canadian dollars. Send cheque 
or Postal Money Order only. 
Allow 3-4 weeks for cheque to 
clear If not certified and allow 
up to 4 weeks for delivery. 

Dealer and Computer Club en- 
quiries invited. 



Apple is a registered trademark of 
Apple Computer Inc. 
Disk II Is a registered trademark of 
Apple Computer Inc. 
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Apple Memory Maps, 

Part 2 



Part 1 of this series (presented 
last month) gave several 
examples of memory maps 
which showed where the Apple 
stores its various program 
components. This concluding 
article contains a listing and 
description of the program 
which produced the maps. 

Peter A. Cook 

1443 N. 24th Street 

Mesa, Arizona 85203 

The Program 

In order to draw a map of a BASIC 
program, two programs must be stored 
in memory at the same time. You must 
have the BASIC program which is to be 
mapped, and the mapping program 
itself. To achieve this, I first thought 
that an Integer BASIC and an Applesoft 
version of the mapping program would 
have tO' be constructed and appended 
onto the program which was to be 
observed. Another alternative was to 
write a machine language program 
which would work for either version of 
BASIC, and wouldn't have to be 
appended. Although this was obviously 
the better choice, it seemed a 
formidable task to me because I had 
never written a machine language 
program before. It turned out to be 
much easier than expected, however, 
and if you've never tried it yourself, it's 
a lot like programming a programmable 
calculator. 

Since I don't have an assembler, I 
used the Apple's mini-assembler to do 
the job. The program is printed in 
listings 1, 2, and 3. Monitor routines 
were used wherever possible to keep 
the program short. 

Several storage locations in page 
zero of memory had to be used in order 
to facilitate the indirect mode of 
addressing. Locations were selected 
which do not interfere with the 



monitor, DOS, Integer BASIC, or 
Applesoft. They are listed in figure 18. 

The program is entered from any 
version of BASIC by a CALL 13000. An 
even number inside the range of 
program lines was chosen because it is 
easy to remember. From this location it 
jumps to $3200, the actual start of the 
program. 

The program was assembled at 
$3200 to allow it to be used in as small 
as a 16K machine, which ends at 
$3FFF, and to permit RAM Applesoft to 
remain intact, which ends at $3000. 
When MEMORY MAP is loaded it may 
overwrite part of the BASIC program, 
but since the program pointers will not 
have changed, MEMORY MAP will 
operate correctly. Hi-Res graphics page 
one, which extends from $2000-4000, 
will definitely be overwritten. The only 
drawback is that if the BASIC program 
is overwritten, it will have to be loaded 
again following the use of MEMORY 
MAP. 

For machines larger than 16K it 
would be more advantageous to move 
the program to a higher location, such 
as above Hi-Res graphics page two. 
Then you could jump back and forth 
between the BASIC program and 
MEMORY MAP without having to 
reload them, even if you have a very 



long BASIC program. The changes 
required to do this would be many. 
Most of the JSR and JMP addresses 
would have to be changed, as well as 
the string addresses and text page 
locations. Also, the CALL instruction 
would have to be placed in a different 
location, such as 25000. 

Pointers 

The Apple remembers where it 
stores the various components of a 
program by placing their starting 
addresses in "pointers." The pointers 
are locations in page zero of memory 
which are set by the monitor in 
response to certain BASIC commands 
and control keys. Figure 19 lists the 
pointers and other reference locations 
used by the MEMORY MAP program. 



Loading Instructions 

1. Enter the hex values from 
listings 1, 2, and 3 into the computer 
using this format: 

*3200:20 84 FE 20 2F FB . . . 

Up to 255 characters, or 85 hex pairs, 
can be entered following the colon. 
Then press the return key and start 
with another colon to continue. 



$1A 


Language: Integer BASIC 

1 RAM Applesoft 

2 ROM Applesoft 


$1B 


DOS: Not loaded 
1 Loaded 


$1C, ID 


String starting address 


$1E, IF 


Temporary usage 


$FA, FB 


Address of pointer's low byte 


$FC, FD 


Address of pointer's high byte 


$FE, FF 


Constants for non-pointer addresses 


Figure 18: 


Page zero usage by MEMORY MAP. 
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2. Save the program on disk using 
BSAVE MEMORY MAP, A$3200, 
L$6E0, or you can save it on cassette 
using '3200.38DFW. 

3. To use the program, first load 
the BASIC program you wish to see 
mapped. Run it through to the end 
using as many different branches of the 
program as possible, to place all the 
variables, arrays, and strings into 
storage. If the program doesn't end 
automatically, terminate it with a 
Control C. 

4. Load MEMORY MAP from disk 
using BLOAD MEMORY MAP, or from 
cassette using 3200.38DFR. Note: 
MEMORY MAP may overwrite part of 
the BASIC program. Be sure you have 
saved a good copy of it first. 

5. CALL 13000. The memory map 
will now appear on the screen. If you 
wish to print it, press Y in response to 
the question at the bottom. If 
MEMORY MAP is stored on disk, you 
can use BRUN MEMORY MAP instead 
of the separate BLOAD and CALL 
commands. 

6. If you wish to run the BASIC 
program over again, you may need to 
reload it first, depending on whether or 
not MEMORY MAP has overwritten 
part of it. 



Integer BASIC Pointers 






LOMEM 
HIMEM 
Program pointer 
Free space pointer 


74,75 

76, 77 

202, 203 

204, 205 


$4A, 4B 
$4C, 4D 
$CA, CB 
$CC, CD 


Applesoft Pointers 






Program pointer 

Variable pointer (LOMEM) 

Array pointer 

Free space pointer 

String pointer 

HIMEM 

End of program pointer 


103, 104 
105, 106 
107, 108 
109, 110 
111, 112 
115, 116 
175, 176 


$67, 68 
$69, 6A 
$6B, 6C 
$6D, 6E 
$6F, 70 
$73, 74 
$AF, B0 


Othei Data 






Language prompt 
DOS slot number 
DOS file buffers (48K) 


51 

1528 

43607 


$33 

$5F8 

$AA57 


Figure 19: Pointers and other reference locations used by MEMORY MAP. 
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Piogram Remarks 

The following remarks explain what the different 
sections of the program are for, and how they work. 

Listing 1: Disassembled MEMORY MAP program. 

Clears the screen. Selects text mode, normal charac- 
ters, and the full text window. 



3290- 


28 84 


FE 


JSR 


$FE84 


3203- 


20 2F 


FB 


JSR 


$FB2F 


3206- 


20 93 


FE 


JSR 


$FE93 


3209- 


28 89 


FE 


JSR 


$FE89 


320C- 


20 58 


FC 


JSR 


$FC58 


320F- 


08 




CLD 




3210- 


P9 00 




LDP 


#$00 


3212- 


85 FB 




STP 


$FB 


3214- 


85 FD 




STP 


$FD 


3216- 


85 IB 




STP 


$1B 


3218- 


85 IP 




STP 


$1P 


32 1P- 


P8 




TRY 





Checks the prompt character to see which language 
is in use. If it is Applesoft, it checks location $E000 
to see whether it contains a JMP instruction. If it 
does, the Applesoft ROM is in use. If not, the Integer 
BASIC ROM is connected, so you are using RAM 
Applesoft. If you entered the program from the 
monitor or the mini-assembler, it will assume you 
want Integer BASIC. 



32 1 B- 


P5 33 


LDP 


$33 


3210- 


C9 DD 


CMP 


#$00 


32 1F- 


D0 0B 


BNE 


$322C 


3221- 


E6 IP 


INC 


$1P 


3223- 


RD 00 E0 


LDP 


$E000 


3226- 


C9 4C 


CMP 


#$4C 


3228- 


D0 02 


BNE 


$322C 


322P- 


E6 IP 


INC 


$1P 


Checks for maximum memory size 


by starting at 


48Kand trying to store a and 


a 1 in that location. If 


it can't, it keeps decreasing the address by 4K until it 


322C- 


P9 FF 


LDP 


#*FF 


322E- 


85 FE 


STP 


$FE 


3230- 


P9 BF 


LDP 


#*BF 


3232- 


85 FF 


STP 


$FF 


3234- 


Bl FE 


LOP 


<*FE>,V 


3236- 


85 IE 


STP 


*1E 


3238- 


R9 00 


LDP 


#$00 


323P- 


91 FE 


STP 


($FE),V 


323C- 


01 FE 


CMP 


<$FE>/V 


323E- 


D0 08 


BNE 


$3248 


3240- 


R9 01 


LDP 


#$01 


3242- 


91 FE 


STP 


<$FE>,Y 


3244- 


Dl FE 


CMP 


<$FE>,Y 
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3246- 


F9 


09 


3248- 


05 


FF 


324A- 


38 




324B- 


E9 


10 


3240- 


85 


FF 


324F- 


D8 


E3 


3251- 


fl5 


IE 


3253- 


91 


FE 


3255- 


E6 


FE 


3257- 


E6 


FF 



BEQ 

LOR 
SEC 
SBC 
STfl 
BNE 
LDR 
STfl 
INC 
INC 



$3251 
$FF 

#$10 

$FF 

$3234 

$1E 

<$FE>,V 

$FE 

$FF 



Checks location $5F8 to see if DOS has been loaded. 
This location contains the slot number of the last 
DOS boot in the form $n0, so it is checked to see if it 
falls in the range $10 to $70. 



3259- 


RD F8 


85 


LDR 


$65F8 


325C- 


C9 10 




CMP 


#$10 


325E- 


30 09 




BMI 


$3269 


3260- 


RD F8 


05 


LDR 


$05F8 


3263- 


C9 71 




CMP 


#$71 


3265- 


10 02 




BPL 


$3269 


3267- 


E6 IB 




INC 


$1B 


3269- 


4C 86 


32 


JMP 


$3286 



This subroutine selects and prints strings from the 
list at the end of the program, using the starting ad- 
dress of the string as a pointer. The first byte con- 
tains the horizontal tab, the second byte contains 
the number of characters, and the remaining bytes 
hold the characters themselves in reverse order. 



326C- 
326E- 
3278- 
3272- 
3274- 
3276- 
3278- 
327A- 
327C- 
327D- 
327F- 
3282- 
3283- 
3285- 

Prints the 

3286- 

3288- 

3286- 

328D- 

3298- 

3292- 

3294- 

3296- 

3283- 

329C- 

329E- 

32A1- 



85 
R9 
85 
R0 
Bl 
85 
E6 
Bl 
08 
Bl 
20 
88 
D0 
60 



1C 
38 
ID 
88 
1C 
24 
1C 
1C 

1C 
ED 

F8 



FD 



STfl 
LDR 
STfl 
LDV 
LDfl 
STfl 
INC 
IDA 
TflV 
LDfl 
JSP. 
0EV 
BNE 
RTS 



title and the language in use. 



A9 80 
28 5B FB 
R9 88 
28 6C 32 
A5 lfl 
F8 08 
R9 0F 
20 6C 32 
4C B4 32 
R9 lfl 
28 6C 32 
4H- B4 32 



LDfl 

JSR 

LDfl 

JSR 

LDfl 

BEQ 

LDfl 

JSR 

JMP 

LDfl 

JSR 

JMP 



$1C 

#$38 

$1D 

#$88 

<$1C>,V 

$24 

$1C 

<$1C>,V 

<$1C>,V 
$FDED 

$327D 



#$88 

$FB5B 

#$88 

$326C 

$lfl 

$329C 

#$8F 

$326C 

$32B4 

#$lfl 

$326C 

$32B4 



Prints the 


starting and ending addresses of the Hi- 


Res graphi 


es pages as a constant reminder of their 


location. 1 


IVill not determine if Hi-Res 


is actually 


used, however. 








3204- 


28 


6C 32 


JSR 


$326C 


32R7- 


E6 


25 


INC 


$25 


32A9- 


20 


22 FC 


JSR 


$FC22 


32AC- 


A5 


1C 


LDfl 


$1C 


32AE- 


18 




CLC 




32AF- 


69 


86 


ADC 


#$86 


32B1- 


85 


1C 


STfl 


$1C 


32B3- 


60 




RTS 




32B4- 


A9 


87 


LDfl 


#$87 


32B6- 


28 


5B FB 


JSR 


$FB5B 


32B9- 


A9 


29 


LDfl 


#$29 


32BB- 


28 


A4 32 


JSR 


$32A4 


32BE- 


A2 


83 


LDX 


#$03 


32C8- 


28 


CB 32 


JSR 


$32CB 


32C3- 


Cfl 




DEX 




32C4- 


08 


FA 


BNE 


$32C0 


32C6- 


F8 


11 


BEQ 


$32D9 


32C8- 


4C 


08 32 


JMP 


$3208 


32CB- 


E6 


25 


INC 


$25 


32CD- 


28 


22 FC 


JSR 


$FC22 


32D8- 


A5 


1C 


LDfl 


$1C 


32D2- 


28 


A4 32 


JSR 


$32A4 


32D5- 


28 


A4 32 


JSR 


$32A4 


32D8- 


60 




RTS 




Draws two vertical lines to outline the memory map. 


32D9- 


A2 


02 


LDX 


#$02 


32DB- 


A9 


09 


LDfl 


#$09 


32DD- 


85 


24 


STfl 


$24 


32DF- 


A8 


14 


LDV 


#$14 


32E1- 


A9 


82 


LDfl 


#$02 


32E3- 


85 


25 


STfl 


$25 


32E5- 


28 


22 FC 


JSR 


$FC22 


32E8- 


A9 


Al 


LDfl 


#$A1 


32EA- 


28 


ED FD 


JSR 


$FDED 


32ED- 


E6 


25 


INC 


$25 


32EF- 


C6 


24 


DEC 


$24 


32F1- 


88 




DEV 




32F2- 


08 


Fl 


BNE 


$32E5 


32F4- 


A9 


16 


LDfl 


#$16 


32F6- 


85 


24 


STfl 


$24 


32F8- 


Cfl 




DEX 




32F9- 


D8 


E4 


BNE 


$32DF 


32FB- 


4C 


AC 33 


JMP 


$33flC 


Subroutine for drawing horizontal lines 


on the map. 


32FE- 


A9 


0C 


LDfl 


#$0C 


3308- 


85 


IE 


STfl 


$1E 


3382- 


A9 


0fl 


LDfl 


#$0fl 


3384- 


35 


24 


STfl 


$24 


3386- 


A9 


AO 


LDfl 


#$flD 


3388- 


28 


ED FD 


JSR 


$FDED 


338B- 


ce 


IE 


DEC 


$1E 


338D- 


D8 


F7 


BNE 


$3306 


330F- 


60 




RTS 
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Subroutine for converting hexadecimal numbers to 


decimal numbers, and printing them. 


Divides by 


10,000, 1000, 100, and 10 to 


obtain each digit, using 


the divide routine at $3779 


Leading zeros are not 


printed. Numbers are right- justified. 




33 1 R- 


P9 IB 


LOO 


#$1B 


3312- 


85 24 


STfl 


$24 


3314- 


09 00 


LD0 


#$00 


3316- 


85 IE 


STfl 


$1E 


3318- 


85 53 


ST0 


$53 


3310- 


85 52 


STO 


$52 


33 1 C- 


08 


TOY 




33 1 D- 


Bl FC 


LDO 


<$FO,V 


33 1F- 


85 51 


STO 


$51 


3321- 


Bl FA 


LDO 


<$F0>,Y 


3323- 


85 5« 


STO 


$50 


3325- 


A9 27 


LDO 


#$27 


3327- 


85 55 


STfl 


$55 


3329- 


A9 10 


LDfl 


#$10 


332B- 


85 54 


STfl 


$54 


332D- 


20 6E 33 


JSR 


$336E 


3330- 


20 5F 33 


JSR 


$335F 


3333- 


09 03 


LDfl 


#$03 


3335- 


85 5=! 


STfl 


$55 


3337- 


09 E8 


LDfl 


#$E8 


3339- 


85 54 


STfl 


$54 


333B- 


28 6E 33 


JSR 


$336E 


333E- 


20 5F 33 


JSR 


$335F 


3341- 


09 00 


LDfl 


#$00 


3343- 


85 55 


STfl 


$55 


3345- 


09 64 


LDfl 


#$64 


3347- 


85 54 


STfl 


$54 


3349- 


20 6E 33 


JSR 


$336E 


334C- 


20 5F 33 


JSR 


$335F 


334F- 


09 00 


LDfl 


#$00 


3351- 


85 54 


STfl 


$54 


3353- 


20 6E 33 


JSR 


$336E 


3356- 


05 52 


LDO 


$52 


3358- 


18 


CLC 




3359- 


69 B0 


ODC 


#$B0 


335B- 


20 ED FD 


JSR 


$FDED 


335E- 


68 


RTS 




335F- 


05 53 


LDfl 


$53 


3381- 


85 51 


STfl 


$51 


3363- 


05 52 


LDfl 


$52 


3365- 


85 50 


STfl 


$50 


3367- 


09 00 


LDfl 


#$00 


3369- 


85 53 


STfl 


$53 


336B- 


85 52 


STfl 


$52 


336D- 


60 


RTS 




336E- 


20 79 37 


JSR 


$3779 


3371- 


05 50 


LDfl 


$50 


3373- 


18 


CLC 




3374- 


65 IE 


ADC 


$1E 


3376- 


85 IE 


STfl 


$1E 


3378- 


D0 04 


BNE 


$337E 


337A- 


E6 24 


INC 


$24 



337C- 


00 08 


BNE 


$33Rfi 


337E- 


A5 50 


LDO 


$50 


3380- 


18 


CLC 




3381- 


69 BR 


ODC 


#$B@ 


3383- 


20 ED FD 


JSR 


$FDED 


3386- 


60 


RTS 




Subroutine for printing the hex numbers used in 


$3310. 








3387- 


09 22 


LDfl 


#$22 


3389- 


85 24 


STfl 


$24 


338B- 


09 04 


LDfl 


#$04 


3380- 


20 ED FD 


JSR 


$FDED 


3390- 


00 80 


LDY 


#$00 


3392- 


Bl FC 


LDfl 


<$FO,V 


3394- 


20 Dfl FD 


JSR 


$FDDA 


3397- 


Bl FA 


LDfl 


<$Ffi>,Y 


3399- 


20 Dfl FD 


JSR 


$FDDA 


339C- 


60 


RTS 




Calls the three preceding subroutines. 




339D- 


85 25 


STfl 


$25 


339F- 


20 22 FC 


JSR 


$FC22 


33A2- 


20 FE 32 


JSR 


$32FE 


3305- 


20 10 33 


JSR 


$3310 


33A8- 


20 87 33 


JSR 


$3387 


33AB- 


60 


RTS 




Prints the 


top horizontal line 


and its 


decimal and 


hex addresses. Each horizontal line on 


the map will 


represent 1 


.he starting address of the block above it. 


Thus, the 


top line for a 48K machine will be 49152, 


or $C000. 


This is actually the first address of the 


ROM area 


. HIMEM is set to 


this value when the 


machine is first turned on. 






33AC- 


fl9 FE 


LDfl 


#$FE 


33AE- 


85 Ffl 


STfl 


$FH 


33B0- 


09 FF 


LDfl 


#$FF 


33B2- 


85 FC 


STfl 


$FC 


33B4- 


09 02 


LDfl 


#$02 


33B6- 


20 9D 33 


JSR 


$3390 


Checks location $1B for a zero or a one to see if DOS 


is loaded. 








33B9- 


05 IB 


LOO 


$1B 


33BB- 


D0 03 


BNE 


$33C0 


33BD- 


4C 56 34 


JMP 


$3456 


If it is, prints "DOS, FILES" 


in the top block. 


33C0- 


E6 25 


INC 


$25 


33C2- 


2© 22 FC 


JSR 


$FC22 


33C5- 


09 50 


LDfl 


#$5fl 


33C7- 


20 6C 32 


.ISR 


$326C 


33CA- 


E6 25 


INC 


$25 


33CC- 


20 22 FC 


JSR 


$FC22 


33CF- 


09 60 


LDfl 


#$60 


33D1- 


20 6C 32 


JSR 


$326C 
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Checks location $AA57 in 


a 48K machine for the 


number of DOS file buffers reserved. 


Three buffers 


are reserved when DOS is 


loaded, but the number 


can vary 


from 1 to 16 if c 


hanged by 


a MAXFILES 


command 


. To find the location for your memory 


size, subtract $15A9 from the top of memory. DOS 


3.1 uses a 


different location for this value, but I don't 


know what it is. 






3304- 


05 FE 


LOO 


$FE 


3306- 


3ft 


SEC 




3307- 


E9 09 


SBC 


#$09 


3309- 


85 IE 


STO 


$1E 


3306- 


R5 FF 


LOO 


$FF 


3300- 


E9 15 


SBC 


#$15 


33DF- 


85 IF 


STO 


$1F 


Converts 


the hex number of buffers 


to a decimal 


number, 


and prints it. 






33E1- 


ftO 00 


LDV 


#$00 


33E3- 


Bl IE 


LOO 


<$1E>,Y 


33E5- 


35 50 


STO 


$50 


33E7- 


98 


TVO 




33E8- 


85 51 


STO 


$51 


33E0- 


85 52 


STO 


$52 


33EC- 


85 53 


STO 


$53 


33EE- 


85 55 


STO 


$55 


33F0- 


ft9 8fi 


LOO 


#$00 


33F2- 


85 54 


STO 


$54 


33F4- 


28 79 37 


JSR 


$3779 


33F7- 


09 04 


LOO 


#$04 


33F9- 


28 5B FB 


JSR 


$FB5B 


33FC- 


fl9 12 


LOO 


#$12 


33FE- 


85 24 


STO 


$24 


3400- 


05 50 


LOO 


$58 


3402- 


F0 06 


BEQ 


$3400 


3404- 


18 


CLC 




3405- 


69 B0 


ODC 


#$B0 


3407- 


20 E0 FD 


JSR 


$FDED 


340ft- 


05 52 


LOO 


$52 


340C- 


18 


CLC 




3400- 


69 B0 


ODC 


#$B0 


340F- 


28 ED FD 


JSR 


$F0ED 


3412- 


09 09 


LOO 


#$09 


3414- 


20 ED FD 


JSR 


$FDED 


Multiplies the number of buffers by 595 to find their 


total length in bytes, using the multiply routine at 


$375B. 








3417- 


00 00 


LDV 


#$00 


3419- 


Bl IE 


LOO 


<$1E),Y 


34 1 B- 


85 50 


STO 


$50 


3410- 


98 


TVO 




341E- 


85 51 


STO 


$51 


3420- 


85 52 


STO 


$52 


3422- 


85 53 


STO 


$53 



3424- 


09 53 


LOO 


#$53 


3426- 


85 54 


STO 


$54 


3428- 


09 02 


LDA 


#$02 


3420- 


85 55 


STO 


$55 


342C- 


20 5B 37 


JSR 


$3756 


Subtracts the length of DOS, $2307, from the top of 


memory to find the top of the buffers. 




342F- 


05 FE 


LDO 


$FE 


3431- 


38 


SEC 




3432- 


E9 07 


SBC 


#$07 


3434- 


85 FE 


STO 


$FE 


3436- 


05 FF 


LDO 


$FF 


3438- 


E9 23 


SBC 


#$23 


3430- 


85 FF 


STO 


$FF 


Subtracts the length of the buffers to find their start- 


ing address 


. Draws a horizontal line and prints the 


address. This is where HIMEM is set 


after a DOS 


boot. The table in figure 20 shows the values of 


HIMEM for different values of MAXFILES in a 48K 


machine. 








343C- 


05 FE 


LDO 


$FE 


343E- 


38 


SEC 




343F- 


E5 50 


SBC 


$50 


3441- 


85 FE 


STO 


$FE 


3443- 


05 FF 


LDO 


$FF 


3445- 


E5 51 


SBC 


$51 


3447- 


85 FF 


STO 


$FF 


3449- 


R9 FE 


LDO 


#$FE 


344B- 


85 FO 


STO 


$F0 


344D- 


09 FF 


LDO 


#$FF 


344F- 


85 FC 


STO 


$FC 


3451- 


09 05 


LDO 


#$05 


3453- 


28 90 33 


JSR 


$339D 



FILES HIMEM 


HIMEM 


<DEC> 


<HEX> 


1 39590 


9006 


2 38995 


9853 


3 38400 


9600 


4 37865 


930D 


5 37210 


9150 


6 36615 


8F07 


7 36020 


8CB4 


8 35425 


8061 


9 34830 


880E 


10 34235 


85BB 


1 1 33640 


8368 


12 33845 


8115 


13 32450 


7EC2 


14 31855 


7C6F 


15 31260 


701 C 


16 30665 


77C9 


Figure 20: Values of HIMEM set by different MAXFILES. 
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Checks location $1A to see 


which language is in use. 


If Integer 


BASIC, it branches to $368A 




3456- 


05 10 


LD0 


$10 


3458- 


C9 00 


CMP 


#$00 


3450- 


00 03 


BNE 


$345F 


345C- 


4C 80 36 


JHP 


$3680 


Checks setting of HIMEM by looking . 


it pointer ad- 


dress $73,74. If same as 


bottom of DOS buffers, 


prints "HM". If a lower value has been set, draws 


another horizontal line and prints the 


new address. 


345F- 


Bl F0 


LOO 


<$F0>,Y 


3461- 


C5 73 


CMP 


$73 


3463- 


D0 0C 


BNE 


$3471 


3465- 


Bl FC 


LOO 


C$FO,V 


3467- 


C5 74 


CMP 


$74 


3469- 


D0 06 


BNE 


$3471 


346B- 


20 84 34 


JSR 


$3484 


346E- 


4C 93 34 


JMP 


$3493 


3471- 


09 73 


LOO 


#$73 


3473- 


85 F0 


STO 


$F0 


3475- 


09 74 


LOO 


#$74 


3477- 


85 FC 


STO 


$FC 


3479- 


20 7F 34 


JSR 


$347F 


347C- 


4C 93 34 


JMP 


$3493 


Subroutine for printing "HM" 




347F- 


E6 25 


INC 


$25 


3481- 


20 9F 33 


JSR 


$339F 


3484- 


09 18 


LDO 


#$18 


3486- 


85 24 


STO 


$24 


3488- 


09 <"■& 


LDO 


#$C8 


3480- 


20 ED FD 


JSR 


$FDED 


348D- 


09 CD 


LDO 


#$CD 


348F- 


20 ED FD 


JSR 


$FDED 


3492- 


80 


RTS 




Checks string pointer $6F,70 to see 


if same as 


HIMEM. 








3493- 


Bl F0 


LOO 


<$F0>,V 


3495- 


C5 6F 


CMP 


$6F 


3497- 


00 08 


BNE 


$349F 


3499- 


Bl FC 


LDO 


($FO,V 


3496- 


C5 70 


CMP 


$70 


349D- 


F0 17 


BEQ 


$34B6 


If not, prints "STRINGS". 


Draws horizontal line 


and prints 


address. 






349F- 


E6 25 


INC 


$25 


3401- 


20 22 FC 


JSR 


$FC22 


3404- 


09 69 


LDO 


#$69 


3406- 


20 6C 32 


JSR 


$326C 


3409- 


09 6F 


LDO 


#$6F 


3408- 


85 F0 


STO 


$F0 


340D- 


09 70 


LDO 


#$70 


340F- 


85 FC 


STO 


$FC 


34B1- 


E6 25 


INC 


$25 


34B3- 


20 9F 33 


JSR 


$339F 



Draws a horizontal line at the bottom of the map for 


address 2048. This is the bottom of usable memory 


for BASIC 


programs. 






34B6- 


20 BC 34 


JSR 


$34BC 


34B9- 


4C 02 34 


JMP 


$3402 


34BC- 


09 08 


LDO 


#$08 


34BE- 


85 FF 


STO 


$FF 


34C0- 


09 00 


LDO 


#$00 


34C2- 


85 FE 


STO 


$FE 


34C4- 


09 FE 


LDO 


#$FE 


34C6- 


85 FO 


STO 


$F0 


34C8- 


09 FF 


LDO 


#$FF 


34C0- 


85 FC 


STO 


$FC 


34CC- 


09 15 


LDO 


#$15 


34CE- 


20 90 33 


JSR 


$3390 


3401- 


60 


RTS 




Checks location $1 A for a 1, 


to see if the language is 


RAM Applesoft. If it is, it prints "APPLESOFT." 


3402- 


05 10 


LDO 


$10 


3404- 


C9 01 


CMP 


#$01 


34D6- 


00 00 


BNE 


$34E2 


3408- 


C6 25 


DEC 


$25 


34D0- 


20 22 FC 


JSR 


$FC22 


3400- 


09 72 


LDO 


#$72 


34DF- 


20 6C 32 


JSR 


$326C 


Checks the program pointer, 


$67,68. If RAM Apple- 


soft is loaded, the program 


will start 


at 12289. If 


ROM Applesoft is used, the 


: program 


will start at 


2049. Draws a horizontal line and prints 


the address. 


34E2- 


09 67 


LDO 


#$67 


34E4- 


85 FO 


STO 


$F0 


34E6- 


09 68 


LDO 


#$68 


34E8- 


85 FC 


STO 


$FC 


34E0- 


C6 25 


DEC 


$25 


34EC- 


20 9F 33 


JSR 


$339F 


34EF- 


20 F5 34 


JSR 


$34F5 


34F2- 


4C 14 35 


JMP 


$3514 


Subroutine which checks the setting of LOMEM by 


looking at pointer $69, 6A. Prints "LM 


n 


34F5- 


Bl FO 


LDO 


<:$fo>,v 


34F7- 


C5 69 


CMP 


$69 


34F9- 


00 09 


BNE 


$3504 


34FB- 


Bl FC 


LDO 


<$FO,V 


34FD- 


C5 60 


CMP 


$60 


34FF- 


00 03 


BNE 


$3504 


3501- 


20 05 35 


JSR 


$3505 


3504- 


60 


RTS 




3505- 


09 18 


LDO 


#$18 


3507- 


85 24 


STO 


$24 


3509- 


09 CC 


LDO 


#$CC 


350B- 


20 ED FD 


JSR 


$FDED 


350E- 


09 CD 


LOO 


#$CD 


3510- 


20 ED FD 


JSR 


$FDED 


3513- 


60 


RTS 
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CONTINENTAL SOFTWARE 
THE APPLE SOURCE. 



For Apple owners only. Thor- 
oughly tested, well documented 
programs for business and pleas- 
ure. All written by professionals. 
Each checked out carefully by 
experts in its field. 

HTPERSPACE WARS 

2 GAMES FOR THE PRICE OF 1 $29.95 

48K Trek. Staidate 3421. 

The Terraunion is being attacked. 

You command United Starship Excali- 

bur. Your mission: destroy the deadly 

Klepton invasion force. Four levels, 

Novice to Master. 

3-D Space Rattle. Use your on-board^ 
scanners to search for alien ships in hi- 
res three-dimensional space. Destroy 
as many aliens as you can before you 
run out of fuel or your ship is destroyed. 
Hi-res graphics. Req. 48K, Applesoft in 
Rom+1 disk drive. Dos. 3.2 or 3.3. 

L.A. LAND MONOPOLY $29.95 

Bankrupt your opponents while becom- 
ing the richest player in the game. Buy, 
sell, rent and trade to accumulate the 
most cash and property. Two to six may 
play. Computer is banker. Create your 
own special version using streets in ■ 
your own town. 

Hi-res graphics. Req. 48K, Applesoft 
in Rom+1 disc drive. Dos. 3.2 or 3.3. 

HOME MONEY MINDER $34.95 

Complete home financial system com- 
bines an excellent Home Checkbook 
Program with Budgeting. Transactions 
by month by budget category. Bank 
reconciliation. Budget for year. Total 
expenses compared monthly and year- 
to-date. Plus much more. 
Req. 48K, Applesoft in Rom, 1 disk 
drive +printer. Avail, in Dos. 3.3. 

THE MAILROOM $34.95 

Stores up to 750 names per disk. Prints 
master lists and labels 1, 2 or 3 across. 
Sorts in 5 seconds. Sort on any of 12 
items, search any sorted item in 10-20 
seconds maximum. Easy editing, cus- 
tomized inputs. 

Req. 48K, Applesoft in Rom, 1 disk 
drive -(-printer (132 column capability^ 
needed to print Master List.) in Dos. 3.3. 



THE COMPUTER PROGRAMMED 
ACCOUNTANT FOUR MODULES 

Buy all four now — or add as you 
expand $175 each ($250 after 6/1/81) 

The first programs for your Apple that 
your accountant will like as much as 
you do. Nobody makes it better — or 
easier to use — than Continental Soft- 
ware. Simple step-by-step instructions. 
Excellent error checking. Modules can 
be used individually, or integrated into 
a complete Accounting System. 
Manuals only: just $15 each. 

CPA1 GENERAL LEDGER. 

True double entry bookkeeping with 
complete, accurate audit trails show- 
ing the source of each entry in the 
general ledger. Concise, meaningful 
reports generated include Balance 
Sheet, Profit & Loss Summary, Trial 
Balance and Complete Journal Activity 
Report. Reports show monthly, year-to- 
date and last year monthly +YTD for 
comparison. Custom charting feature 
includes hi-res plotting of one or more 
accounts. 

CPA2 ACCOUNTS RECEIVABLE 

Prints invoices on available custom 
I forms or on plain paper. Back, orders 
I and extensions computed. Issues state- 
ments for all customers, one or more 
customers, or only those with current, 
30-, 60-, 90- or 150-day balances. 
Maintain up to 300 customers. Custom- 
ized journals. Allows simulation of 
manual special journal entries. Posts to 
General Ledger. Prints aging report to 
150 days. Also prints customer lists 
and labels. 

CPA3 ACCOUNTS PAYABLE 

Prints checks to vendors and non 
vendors on available pre-printed 
checks or plain paper. Each check stub 
shows invoice(s) paid, discounts taken, 
net paid, Prints Purchases and Cash 



Disbursement Journals. Customized 
journals. Allows simulation of manual 
special journal entries. Prints Aging 
Report to 150 days, vendor list and 
labels and even a Cash Requirements 
Report. Posts to General Ledger. 

CPA4 PAYROLL 

Maintains personnel records for as 
many as 100 employees. Quarter-to- 
date and year-to-date earnings and 
deduction records. Employees are 
departmentalized and designated 
hourly or salaried. Prints complete 
Payroll Checks, 941 information, W-2s, 
State of California DE-3 information. 
Prints Payroll Journal and posts to 
General Ledger. 

These are just some of the fea- 
tures of each CPA module. All require 
48K, Applesoft in Rom, Dos. 3.3, 2 disk 
drives -(-printer. 

At your local dealer or fill out and 

mail today. Phone for immediate 

delivery. 




12101 Jefferson Blvd., 
Culver City, CA 90230 




OK, I'LL BYTE. 

Send me these revolutionary 
| programs: 

■ □ Hyperspace Wars . . . $ 

□ L.A. Land Monopoly. 

■ D Home Money Minder 

■ □ The Mailroom 

" □ CPA1 General 

' Ledger 

| □ CPA2 Accts. Rec. . . 

_ □ CPA3 Accts. Pay. . . 

■ □ CPA4 Payroll 

| No. C.O.D.s Subtotal 

Cal. res. add 6% 

TOTAL 



1 

I 
1 
i 



Name 

Address. 
City_ 



_State_ 



ard No._ 
M15/81 



Zip_ 

_Exp._ 



CONTINENTAL VJSOFTWARE 



(213) 371-5612 
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Checks the end-of -program pointer $AF,BO. Prints 
"PROGRAM". Draws a horizontal line above it and 
prints the address. If no Applesoft program is loaded, 
the end-of-program will be one or two bytes higher 
than the starting pointer. 



3514- 


Bl FR 




LDP 


<$Ffl>,V 


3516- 


C5 PF 




CMP 


$AF 


3518- 


00 96 




BNE 


$3520 


35 1 P- 


Bl FC 




LDP 


<$FC),Y 


35 1C- 


C5 B0 




CMP 


$B0 


351E- 


F0 IP 




BEQ 


$353A 


3526- 


C6 25 




DEC 


$25 


3522- 


20 22 


FC 


JSR 


$FC22 


3525- 


P9 7D 




LDP 


#$7D 


3527- 


20 6C 


32 


JSR 


$326C 


352P- 


P9 PF 




LDP 


#$AF 


352C- 


85 Ffl 




STP 


$FA 


352E- 


P9 B0 




LDP 


#$B0 


3530- 


85 FC 




STP 


$FC 


3532- 


C6 25 




DEC 


$25 


3534- 


20 9F 


33 


JSR 


$339F 


3537- 


20 F5 


34 


JSR 


$34F5 



Checks $69, 6A for the setting of LOMEM. It should 
have been set automatically to the same position as 
the end-of-program pointer. If different, draws 
another line and labels it "LM" with the proper ad- 
dress. This is the starting location for variables. 



353A- 


Bl FP 


LDP 


<$FA),Y 


353C- 


C5 69 


CMP 


$69 


353E- 


D0 06 


BNE 


$3546 


3540- 


Bl FC 


LDP 


<$FC),Y 


3542- 


C5 6P 


CMP 


$6P 


3544- 


F0 10 


BEQ 


$355R 


3546- 


P9 69 


LDP 


#$69 


3548- 


85 FP 


STP 


$FP 


354A- 


P9 6R 


LDP 


#$6P 


354C- 


85 FC 


STP 


$FC 


354E- 


C6 25 


DEC 


$25 


3550- 


20 9F 33 


JSR 


$339F 


3553- 


20 F5 34 


JSR 


$34F5 



Checks the array pointer $6B,6C to see if different 
from LOMEM. If it is, prints "VARIABLES" and 
draws a line above it for the start of array space. 



3556- 


Bl FP 


3558- 


C5 6B 


355R- 


D0 06 


355C- 


Bl FC 


355E- 


C5 6C 


3560- 


F0 17 


3562- 


C6 25 


3564- 


20 22 


3567- 


P9 86 


35R9- 


20 6C 


356C- 


P9 6B 


356E- 


85 FP 



FC 



32 



LDP 

CMP 

BNE 

LDP 

CMP 

BEQ 

DEC 

JSR 

LDP 

JSR 

LDP 

STP 



<$FR>,Y 

$6B 

$3562 

<$FO,Y 

$6C 

$3579 

$25 

$FC22 

#$86 

$326C 

#$6B 

$FP 



3578- 
3572- 
3574- 
3576- 

Checks the 

the same as 

"ARRAYS" 

3579- 

357B- 

357D- 

357F- 

3581- 

3583- 

3585- 

3587- 

358P- 

358C- 

358F- 

3591- 

3593- 

3595- 

3597- 

3599- 



P9 6C 
85 FC 
C6 25 
20 9F 33 



LDP 
STP 
DEC 
JSR 



free space pointer $6D,6E 
the start of array space. If 
and draws a line above it. 
Bl FR LDP 

C5 6D CMP 

D0 06 BNE 

Bl FC LDfi 



C5 6E 
F0 17 
C6 25 
20 22 FC 
R9 91 
20 6C 32 
R9 6D 
85 Ffl 
R9 6E 
85 FC 
C6 25 
20 9F 33 



CMP 

BEQ 

DEC 

JSR 

LOR 

JSR 

LDR 

STP 

LDR 

STfl 

DEC 

JSR 



#$6C 
$FC 
$25 
$339F 

to see if it is 
not, it prints 

($FR),V 
$6D 
$3585 
<$FC),V 

$6E 

$359C 

$25 

$FC22 

#$91 

$326C 

#$6D 

$Ffl 

#$6E 

$FC 

$25 

$339F 



Computes the amount of free space by subtracting 
the free space address from the string address. Prints 
the amount in decimal and hex. This completes the 
Applesoft map. 



359C- 


20 R2 


35 


JSR 


$35R2 


359F- 


4C RD 


35 


JMP 


$35flU 


35R2- 


R9 0fl 




LDfl 


#$0fl 


35P4- 


20 5B 


FB 


JSR 


$FB5B 


35R7- 


R9 99 




LDfl 


#$99 


35P9- 


20 6C 


32 


JSR 


$326C 


35RC- 


60 




RTS 




35RD- 


R5 6F 




LDfl 


$6F 


35RF- 


38 




SEC 




35B0- 


E5 6D 




SBC 


$6D 


35B2- 


85 FE 




STfl 


$FE 


35B4- 


P5 70 




LDfl 


$70 


35B6- 


E5 6E 




SBC 


$6E 


35B8- 


85 FF 




STfl 


$FF 


35BR- 


R9 FE 




LDfl 


#$FE 


35BC- 


85 Ffl 




STfl 


$Ffl 


35BE- 


fl9 FF 




LOR 


#$FF 


35C0- 


85 FC 




STfl 


$FC 


35C2- 


20 10 


33 


JSR 


$3310 


35C5- 


20 87 


33 


JSR 


$3387 



The next part of the program allows you to print the 
map on a printer, as was done for the illustrations in 
this article. Places the input line "PRINT (Y)?" at 
the bottom of the screen. 



35C8- 
35CP- 
35CD- 
35CF- 



R9 17 
20 5B FB 
R9 A5 
20 6C 32 



LDfl 
JSR 
LDfl 
JSR 



#$17 
$FB5B 
#$A5 
$326C 
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If the response is not a " 


Y", erases 


the question, 


replaces it with the prompt character of the original 


BASIC program, and ends the MEMORY MAP 


program. 








35D2- 


20 IB FD 


JSR 


$FD1B 


35D5- 


C9 D9 


CMP 


#$D9 


35D7- 


F0 IF 


BEQ 


$35F8 


35D9- 


fi9 00 


LDfi 


#$00 


35DB- 


85 24 


8TR 


$24 


350D- 


20 9C FC 


JSR 


$FC9C 


35E0- 


fi9 16 


LDfi 


#$16 


35E2- 


20 5B FB 


JSR 


$FB5B 


35E5- 


fi5 lfi 


LDfi 


$lfi 


35E7- 


C9 01 


CMP 


#$01 


35E9- 


D0 03 


BNE 


$35EE 


35EB- 


4C 3C 0C 


JMP 


$0C3C 


35EE- 


fi5 IB 


LDfi 


$1B 


35F0- 


F0 03 


BEQ 


$35F5 


35F2- 


4C D@ 03 


JHP 


$03D0 


35F5- 


4C 03 E0 


JHP 


$E003 


If the response is a "Y", the program 


continues. It 


was designed for use with 


a Trendcom 200 printer. 


One of the features of this printer's interface card is 


that it prints a line of characters on the 


screen before 


it prints 1 


.hem on the paper 


In order to print only the 


memory map display from text page one, we have to 


move it 


:irst to another location before it becomes 


cluttered 


with extra characters from 


the printing 


process. 


The monitor MOVE routine is used here to 


move $400,800 to $3900. 3D00. The MOVE routine 


transfers 


bytes from the 


addresses 


contained in 


$3C,3D 


through $3E,3F 


to the new address in 


$42,43. 








35F8- 


fi9 00 


LDfi 


#$00 


35Ffi- 


85 3C 


STfl 


$3C 


35FC- 


85 3E 


STfi 


$3E 


35FE- 


85 42 


STfi 


$42 


3600- 


fi8 


TfiV 




3601- 


fi9 04 


LDfi 


#$04 


3603- 


85 3D 


STfi 


$3D 


3605- 


fi9 08 


LDfi 


#$08 


3607- 


85 3F 


STfi 


$3F 


3609- 


09 39 


LDfi 


#$39 


360B- 


85 43 


STfi 


$43 


360D- 


20 2C FE 


JSR 


$FE2C 


3610- 


4C 3E 36 


JMP 


$363E 


Subroutine for printing a horizontal border line on 


the finished map. 






3613- 


fi9 30 


LDfi 


#$30 


3615- 


85 IE 


STfi 


$1E 


3617- 


fi9 0fi 


LDfi 


#$0fi 


3619- 


85 24 


STfi 


$24 


36 1B- 


fi9 fiD 


LDfi 


#$fiD 


3610- 


20 ED FD 


JSR 


$FDED 


3620- 


C6 IE 


DEC 


$1E 


3622- 


D0 F7 


BNE 


$36 IB 


3624- 


20 8E FD 


JSR 


$FD8E 


3627- 


60 


RTS 





Subroutine for printing a blank line within vertical 


border lines 






3628- 


09 09 


LDfi #$09 


3620- 


85 24 


STfi $2f 


362C- 


09 fll 


LDfi #$fil 


362E- 


20 ED FD 


JSR $FDED 


3631- 


09 3fi 


LDO #$30 


3633- 


85 24 


STO $24 


3635- 


09 01 


LDO #$fil 


3637- 


20 ED FD 


JSR $FDED 


3630- 


20 8E FD 


JSR $FD8E 


363D- 


60 


RTS 


Selects the 


printer slot number in the form $CnOO. 


You will have to change location $3643 to a different 


number if 


your printer is not in slot #2. 


363E- 


09 00 


LDfi #$00 


3640- 


85 36 


STfi $36 


3642- 


09 C2 


LDfi #$C2 


3644- 


85 37 


STfi $37 


Prints a border around the outside of the map. Prints 


the moved text page line-by-line using the starting 


locations for each line stored at $38B2. 


3646- 


20 13 36 


JSR $3613 


3649- 


20 28 36 


JSR $3628 


364C- 


02 2E 


LDX #$2E 


364E- 


09 09 


LDfi #$09 


3650- 


85 24 


STfi $24 


3652- 


09 fil 


LDfi #$fil 


3654- 


20 ED FD 


JSR $FDED 


3657- 


fi9 0E 


LDfi #$0E 


3659- 


85 24 


STfi $24 


365B- 


BD B0 38 


LDfi $38B0,X 


365E- 


85 IE 


STfl $1E 


3660- 


BD Bl 38 


LDfi $38B1 ,X 


3663- 


85 IF 


STfi $1F 


3665- 


fi0 00 


LDV #$00 


3667- 


Bl IE 


LDfi <$1E),V 


3669- 


20 ED FD 


JSR $FDED 


366C- 


C8 


INV 


366D- 


C0 27 


CPV #$27 


366F- 


00 F6 


BNE $3667 


3671- 


fi9 3fi 


LDfi #$3fi 


3673- 


85 24 


STfi $24 


3675- 


fi9 fil 


LDfi #$fil 


3677- 


20 ED FD 


JSR $FDED 


367fi- 


20 8E FD 


JSR $FD8E 


367D- 


Cfi 


DEK 


367E- 


Cfi 


DEX 


367F- 


D© CD 


BNE $364E 


3681- 


20 13 36 


JSR $3613 


Restores normal screen output at the end of printing, 


and returns to BASIC to end the program. 


3684- 


20 93 FE 


JSR $FE93 


3687- 


4C E5 35 


JMP $35E5 
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Classified 



Programmer Fatigue? 

SYM— BUG/MONEX adds 15 commands 
to SYM's repertoire including an inter- 
active trace/debug. Cassette @ $0200 or 
$3800: $19.95. EPROM |2716-5v) @ 
$F000-$F7FF: $39.95. Commented source 
listing: $9.95. RAE-l|/2) FORMAT 
CASSETTE: $35 (requires 8KJ. Custom 
assembly add $2.00. Foreign add $2.00. 
SASE for more information. 

Jeff Holtzman 

6820 Delmar-203 

St. Louis, Missouri 63130 

PET Machine Language Guide 

Comprehensive manual to aid machine 
language programmer. More than 30 
routines are fully detailed so that the 
reader can put them to immediate use. 
OLD or NEW ROMS. $6.95 + .75 postage. 
VISA & Mastercharge accepted. 

Abacus Software 

P.O. Box 7211 

Grand Rapids, Michigan 49510 



AIM-65 Newsletter * * Target 

Target provides hardware and software 
information useful for AIM-65 and 6502 
users. The 1979 and 1980 back issues are 
available for $12.00 while a continuing 
subscription costs $6.00. Just write to: 

Target 

Donald Clem 

Route 2 

Spenserville, Ohio 45887 

OSI SUPERB/C1P • New MonltorROM 

You haven't seen a better utility ROM! 
Exchange MonitorROM and get: Screen- 
editor (insert, delete), cursor control, f. 
24/32/64 chr/line; cassette-sys. w. file 
name handler (3-4 times faster), handles 
BASIC, Hexcode and variable arrays, and 
more. Further applications and program 
information $1.00. 

Gerwin Bleich 

Boschstr. 1,3004 

Isemhagen 1, West Germany 

Quality Educational Courseware 

Elementary educational courseware for 
the Apple II. All programs feature large 
lower-case letters, record keeping, and 
documentation. All require Applesoft 48K, 
disk. CLOCK: $29.95, PRESCRIPTIVE 
MATH DRILL: $79.95. Write for catalog. 

Hartley Software 

3268 Coach Lane #2A Dept. M 

Kentwood, MI 49508 



Spanish Hangman 

2,000 SPANISH words and sentences 
taught in a fun way on the Apple. Send for 
your school's free 30-day evaluation 
diskette, from: 

George Earl 

1302 South General McMullen 

San Antonio, Texas 78237 

AIM/KIM/SYM 

NBS Computing gives you time! A battery 
backed-up clock-calendar board that runs 
on the application bus. The clock will run 
for months without power and can 
generate interrupts on SYM systems. 
$69.95 assembled, $34.95 bare board. Both 
include drivers. 

NBS Computing 

1674 E. M-36 

Pinckney, Michigan 48169 

ASTEROIDS for OSI 

Enjoy the arcade game in the comfort of 
your home. Exciting and habit forming. 
All in machine code. Specify system. Sorry 
NO 8" disks. $10.95 tape or disk. 

W.C. Software 

1319 N. 16th 

Grand Junction, CO 81501 



(Continued on page 80) 
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Don't buy Apple Software j 




until you read this book. 



First check The Book— the one complete critical analysis of most Apple 
Software available. Games, Educational, Business, Utility programs and 
more. Each comprehensively rated on 11 separate points. Each reviewed by 
an expert in its field. Just $19.95. 

Now you can compare and get more for your software dollar. Does the 
program you need exist? How good is it? Which software vendors offer the 
best support? Find out all this and much more. 

MasterCard & Visa accepted. Fill out and mail today or call for shipment. 



name 

ADDRESS _ 



CITY 

CARD NUMBER. 



_STATE _ 



_ZIP_ 



TheBookCompany 



M15/'81 



Calif, residents add 6% 



16720 HAWTHORNE BLVD., LAWNDALE, CA 90260. (213) 371-4012. 
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The following routines check the Integer BASIC 
pointers, which are different from the ones used for 


Applesoft. 
$4C,4D. 


This one checks the setting 


of HIMEM, 


368A- 
3S8C- 


Bl Ffl 
C5 4C 




LDfl 

CMP 


<*FA),V 
$4C 


368E- 


00 6C 




BNE 


$369C 


3690- 


Bl FC 




LDfl 


<$FO/V 


3692- 


C5 40 




CMP 


$4D 


3694- 


00 0G 




BNE 


$369C 


3696- 


26 84 


34 


J8R 


$3484 


3699- 


4C fl7 


36 


JMP 


$3607 


369C- 


A9 4C 




LDfl 


#$4C 


369E- 


85 Ffl 




8TA 


$Ffi 


36A6- 


fl9 40 




LDfl 


#$4D 


36A2- 


85 FC 




STfl 


$FC 


36A4- 


20 7F 


34 


JSR 


$347F 


Checks the 


program pointer $CA,CB. 




36A7- 


Bl Ffl 




LDfl 


<$Ffl>,V 


36A9- 


C5 Cfl 




CMP 


$Cfl 


36AB- 


00 06 




BNE 


$36B3 


36PD- 


Bl FC 




LDfl 


<$FC),V 


36AF- 


C5 CB 




CMP 


$CB 


36B1- 


F6 17 




BEQ 


$36CA 


36B3- 


E6 25 




INC 


$25 


36B5- 


20 22 


FC 


JSR 


*FC22 


36B8- 


fl9 70 




LDfl 


#$70 


36BA- 


26 6C 


32 


JSR 


$326C 


36BD- 


A9 Cfl 




LDfl 


#*CB 


36BF- 


85 Ffl 




STfl 


$Ffl 


36C1- 


A9 CB 




LDfl 


#$CB 


36C3- 


85 FC 




STfl 


$FC 


3SC5- 


E6 25 




INC 


$25 


36C7- 


26 9F 


33 


JSR 


$339F 


Draws the bottom line at 2048. 




36CA- 


20 BC 


34 


JSR 


$34BC 


36CD- 


20 D3 


36 


JSR 


$3603 


36D0- 


4C E3 


36 


JMP 


$36E3 


Checks the setting of LOMEM, $4A,4B. This is the 
beginning of storage for variables, arrays, and 
strings, which are all stored in the same area in 


Integer BASIC. 








3603- 


Bl Ffl 




LDfl 


<$Ffl),V 


3605- 


C5 4fl 




CMP 


$4fl 


36D7- 


00 09 




BNE 


$36E2 


36D9- 


Bl FC 




LDfl 


($FO,V 


3606- 


C5 4B 




CMP 


$4B 


36DD- 


D0 S3 




BNE 


$36E2 


36DF- 


20 05 


35 


JSR 


$3505 


36E2- 


60 




RTS 





36E3- 


Bl Ffl 


LDfl 


<$Ffl>,V 


36E5- 


C5 4fl 


CMP 


$4fl 


36E7- 


00 06 


BNE 


$36EF 


36E9- 


Bl FC 


LDfl 


<$FO,V 


36EB- 


C5 4B 


CMP 


$46 


36ED- 


F0 10 


BEQ 


$36FF 


36EF- 


A9 4A 


LDfl 


#$4fl 


36F1- 


85 FA 


STfl 


$FA 


36F3- 


A9 4B 


LDfl 


#$4B 


36F5- 


85 FC 


STA 


$FC 


36F7- 


C6 25 


DEC 


$25 


36F9- 


26 9F 33 


JSR 


$339F 


36FC- 


20 03 36 


JSR 


$3603 


Checks the free space pointer $CC,CD 


to see where 


the variables end. 






36FF- 


Bl FA 


LDA 


<$FA>,V 


3701- 


C5 CC 


CMP 


$CC 


3703- 


D0 06 


BNE 


$370B 


3705- 


Bl FC 


LDA 


<$FC),V 


3707- 


C5 CD 


CMP 


$CD 


3709- 


F0 2F 


BEQ 


$373A 


370B- 


C6 25 


DEC 


$25 


3700- 


20 22 FC 


JSR 


$FC22 


3710- 


A9 69 


LDfl 


#$69 


3712- 


20 6C 32 


JSR 


$326C 


3715- 


C6 25 


DEC 


$25 


3717- 


C6 25 


DEC 


$25 


3719- 


20 22 FC 


JSR 


$FC22 


371 C- 


A9 91 


LDfl 


#$91 


37 1E- 


20 6C 32 


JSR 


$326C 


3721- 


C6 25 


DEC 


$25 


3723- 


C6 25 


DEC 


$25 


3725- 


20 22 FC 


JSR 


$FC22 


3728- 


A9 86 


LDfl 


#$86 


3720- 


26 6C 32 


JSR 


$326C 


3720- 


fl9 CC 


LDfl 


#$CC 


372F- 


85 Ffl 


STfl 


$FA 


3731- 


A9 CD 


LDfl 


#$CD 


3733- 


85 FC 


STfl 


$FC 


3735- 


C6 25 


DEC 


$25 


3737- 


20 9F 33 


JSR 


$339F 


Computes 


the amount of free 


space by subtracting 


the free space address from the program address. 


This completes the memory map for Integer BASIC. 


Jumps back to $35C8 for the printer routine. 


373A- 


20 A2 35 


JSR 


$35A2 


3730- 


A5 CA 


LDfl 


$CA 


373F- 


38 


SEC 




3740- 


E5 CC 


SBC 


$CC 


3742- 


85 FE 


STfl 


$FE 


3744- 


A5 CB 


LDfl 


$CB 


3746- 


E5 CD 


SBC 


$CD 
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3748- 
374R- 
374C- 
374E- 
3750- 
3752- 
3755- 
3758- 



85 FF 
R9 FE 
85 Ffl 
R9 FF 
85 FC 
20 10 33 
28 87 33 
4C C8 35 



STfl $FF 

LOR #$FE 

STfl $Ffl 

LDR #$FF 

STfl $FC 

JSR $3310 

JSR $3387 

JHP $35C8 



Subroutine for multiplying integers. This is the 
MUL routine from the old monitor ROM, in case 
you have the autostart ROM installed. Multiplies 
number in $50,51 by number in $54,55 leaving 
1 6-bit result in $50, 5 1 , 52,53. 



375B- 


R0 10 


375D- 


P5 50 


375F- 


4fl 


3760- 


90 0C 


3762- 


18 


3763- 


02 FE 


3765- 


B5 54 


3767- 


75 56 


3769- 


95 54 


376B- 


E8 


376C- 


00 F7 


376E- 


R2 93 


3770- 


76 59 


3772- 


Cfl 


3773- 


10 FB 


3775- 


88 


3776- 


00 E5 


3778- 


60 



LDV 


#$10 


LDR 


$50 


L5R 




BCC 


$376E 


CLC 




LDX 


#$FE 


LDR 


$54, X 


ROC 


$56,X 


STfl 


$54,X 


I NX 




BNE 


$3765 


LDX 


#$03 


ROR 


$50, X 


DEX 




BPL 


$3770 


DEV 




BNE 


$3750 


RTS 





Subroutine for dividing integers. This is the DIV 
routine from the old monitor ROM. Divides 16-bit 
number in $50,51,52,53 by number in $54,55, leav- 
ing quotient in $50,51 and remainder in $52,53. 



3779- 


R0 10 


377B- 


06 50 


3770- 


26 51 


377F- 


26 52 


3781- 


26 53 


3783- 


38 


3784- 


fl5 52 


3786- 


E5 54 


3788- 


RR 


3789- 


R5 53 


378B- 


E5 55 


3780- 


90 06 


378F- 


86 52 


3791- 


85 53 


3793- 


E6 50 


3795- 


88 


3796- 


00 E3 


3798- 


60 



LDV 


#$10 


RSL 


$50 


ROL 


$51 


ROL 


$52 


ROL 


$53 


SEC 




LDR 


$52 


SBC 


$54 


TAX 




LDR 


$53 


SBC 


$55 


BCC 


$3795 


STX 


$52 


STR 


$53 


INC 


$50 


DEV 




BNE 


$3776 


RTS 





Listing 2: MEMORY MAP 


strings. 








String data. All strings . 


ire stored with horizontal tab 


in first 


byte, 


length o 


: string in second 


byte, and 


string characters in reverse 


order in 


the 


remaining 


bytes. Reverse order is 


usee 


. to allow 


sim 


pie decre- 


menting of the counter 


instead of incrementing and 


comparing. 
















3800- 


00 


00 


RO 


R8 


BR 


00 


CI 


CD 


3808- 


A0 


09 


02 


CF 


CD 


C5 


CD 


00 


3810- 


89 


04 


C6 


CF 


03 


C5 


CC 


00 


3818- 


D0 


CI 


00 


00 


C3 


C9 


D3 


CI 


3820- 


C2 


R0 


02 


C5 


C7 


C5 


04 


CE 


3828- 


C9 


00 


05 


D3 


C5 


02 


C9 


C8 


3830- 


00 


05 


B6 


B7 


B5 


B4 


B2 


00 


3838- 


05 


60 


80 


B0 


66 


R4 


00 


05 


3840- 


B4 


B8 


B3 


B6 


Bl 


00 


05 


B0 


3848- 


88 


88 84 R4 


00 


05 


B2 


B9 


3850- Bl 


B8 


R0 


00 


05 


B8 


B0 


B0 


3858- 


82 


04 


0E 


04 


RC 


03 


CF 


C4 


3868- 


0B 


07 


R8 


R0 


D3 


C5 


CC 


C9 


3868- 


C6 


0C 


07 


03 


C7 


CE 


C9 


02 


3870- 


04 


03 


OB 


09 D4 


C6 


CF 


03 


3878- 


C5 


CC 


00 


00 


CI 


0C 


07 


CD 


3888- 


CI 


02 


C7 


CF 


02 


D0 


0B 


09 


3888- 


03 


C5 


CC 


C2 


CI 


C9 


02 


CI 


3890- 


06 


00 


06 


03 


09 


CI 


02 


02 


3898- 


CI 


0B 


0R 


C5 


C3 


CI 


D0 


03 


38R8- 


■ R0 


C5 


C5 


D2 


C6 


00 


BR 


BF 


38R8- 


R9 


09 


R8 


R0 


04 


CE 


C9 


D2 


38B0- 


• 00 


FF 















^ s 



Listing 3: Starting locations for printing the moved text page. 

Left edge locations of the top 23 lines of the moved 
text page, in reverse order. The 24th line containing 
the "PRINT (Y)?" statement is not printed. As an ex- 
ample, the last two bytes in this section are $00 and 
$39, denoting the address $3900. This location holds 
the byte moved from $400, the leftmost character on 
the top line of text page one. 

38B2- 50 3C 00 3B 50 3B 
3888- D0 3fl 50 30 00 39 50 39 
38C0- R8 3C 28 3C R8 3B 28 3B 
38C8- R8 3fi 28 3fl R8 39 28 39 
3800- 80 3C 00 3C 88 3B 00 3B 
3808- 80 3fl 00 3fl 80 39 00 39 



This completes the description of the program. 
Use the loading instructions which follow, then try 
recreating the examples shown in Part 1 of this 
series. You will soon figure out many other ways to 
use memory maps as an aid in designing Integer 
BASIC and Applesoft programs. jkicflO" 
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pet & apple ii users 
Tiny Pascal 

PIUB + 

GRAPHICS 




The TINY Pascal System turns your APPLE II micro Into a 16-blt P-machlne. You 
too can learn the language that Is slated to become the successor to BASIC. TINY 
Pascal offers the following: 

* LINE EDITOR to create, modify and maintain source 

* COMPILER to produce P-code, the assembly langauago ol the P-machino 

* INTERPRETER to execute the compiled P-code (has TRACE) 

* Structured programmed constructs: CASEOFELSE, WHILE-DO, IF-THEN- 
ELSE, REPEAT-UNTIL, FORTOJDOWNTODO, BEGIN-END, MEM, CONST, 
VAR ARRAY 

Our new TINY Pascal PLUS+ provides graphics and other builtln functions: 
GRAPHICS, PLOT, POINT, TEXT, INKEY, ABS AND SQR. The PET version sup- 
ports double density plotting on 40 column screen giving 80 x 50 plot positions. 
The APPLE II version supports LORES and for ROM APPLESOFT owners the 
HIRES graphics plus other features with: COLOR, HGRAPHICS, HCOLOR, 
HPLOT, PDL and TONE. For those who do not require graphics capabilities, you 
may still order our original Tiny Pascal package. 



TINY Pascal PLUS+ GRAPHICS VERSION- 
PET 32K NEW Roms cassette $55 

PET 32K NEW Roms diskette $50 

APPLE II 32KM8K w/DOS 3.2 or 3.3 $50 

TINY Pascal NON-GRAPHICS VERSIONS- 
PET 16K/32K NEW Roms cassette $40 

PET 16K/32K NEW Roms diskette $35 

APPLE II w/ROM Applesoft 32K w/DOS $35 

APPLE II w/RAM Applesoft 48K w/DOS $35 

USER'S Manual (refundable with software order) $10 

6502 Assembly Listing of INTERPRETER-graphlcs $25 

6502Assembly Listing of INTERPRETER-non graphics. . $20 

FREE poataga li\ U.S. and CANADA. Ordara may ba Qrapatt ol by bankcard (Induda cart 
numbar and aiplratkin data). Hlcnigan raaidanta includa 4% alata aalaa tax. Ordara ae- 
captad via THE SOURCE ■ CLOM2. 





murim 



[ 



ABACUS SOFTWARE 

P. O. Box 721 1 

Grand Rapids, Michigan 49510 






Presenting. . 



A-STAT 
79 



,TM 



A Statistical Analysis and File Maintenance System 
for the Apple II™ Microcomputer* 

A subset language of P-STAT™ 78 
computes: 

FREQUENCIES 

BIVARIATE TABLES - CHI SQUARES 

CORRELATION MATRICES 

MULTIPLE REGRESSIONS 

APPLE FILE CABINET INTERFACE 

COMPLETE VARIABLE TRANSFORMATIONS 

Uses Standard DOS Text Files and EXEC'S 

A-STAT™ 79 on disk with 80-page manual... $125.00 



,TM 



48K version — All programs In Applesoft 

Available from: 

Rosen Qrandon Associates 

296 Pstsr Green Road 

Tolland, Connecticut 06084 

(203) 875-3541 



' Apple II™ Is a trademark of the Apple Computer, Inc. 
P-STAT™ 78 Is a trademark of P-STAT Inc., Princeton, N.J. 
A-STAT™ 79 Is copyrighted by Gary M. Grandon, PH.D. 
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LOOK!!! 

AVANT-GARDE CREATIONS has SOFTWARE: 

EDUCATION 

ART/DESIGN | 

BUSINESS"! -A / _>^ 

UTILITIES lr Z-—A f7 
SELF TRANSFORMATION \f / 

LOOK AGAIN!!! A 

We have the following and MORE!: 
5 Great Games! Animal Bingo, Jungle Safari, Sp^ce Defense, 
Sky Watcher, Air Traffic Controller $29.95 (or $9.95 each) 
5 More Great Games! Deep Sea Treasure, Mystery Code, 
Depth Charge, The Mine Fields of Normalcy, Turn 'Em Loose 

$29.95 (or $9.95 each) 
The Mailing Label & Filing System Filing, label-making, 
binary sort, dynamic sorting, directory, quick-find, more! $24.95 
Sentence Diaarammlna Educational, grades 6-12 $19.95 
Action Sounds & Hi-Res Scrolling Designed to give your 
program the excitement of action & sound $15.95 

Super Draw & Write Fonts, drawing, and useful utilities 

$15.95 
Super Shape Draw! The best system yet, it works! 
...creates shape tables like a dream... $19.95 

The Creativity Package Draw, unite poetry, music $19.95 

".. .Impressive... satisfying. ..intere>ttng...fim<" Peelings (The Magazine of Software 

Reviews) 

"Truly dtfferent.Mnlque...the program is an enjoyable one.. .cute.. .very interesting... 

new. ..nice. ..a good value!" Apple Orchard (Winter) 

Demo Disk I Some of our best stuff $9.95 

Demo Disk II More of our best $9.95 

All of our software is written In Applesoft * , 48K, disk 

DEALER INQUIRIES INVITED 
VISA/MASTERCARD 



AVANT-GARDE CREATIONS 
P.O. Box 30160 
Eugene, OR 97403 Dept. mi 
(503) 345-3043 
(12pm-6pm 7 days a week) 



* Apple is a trademark 
of Apple Computer, Inc. 



JLt/ecision 
Oystema 



Decision Systems 

P.O. Box 13006 
Denton. TX 76203 



SOFTWARE FOR THE APPLE II* 

ISAM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 
$50 Disk, Applesoft. 

PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF... ELSE..., CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 
$35. Disk, Applesoft (48K, ROM or Language Card) . 

DSA— DS is a dis-assembler for 6502 code. Now you can easily dis-assemble any 
machine language program for the Apple and use the dis-assembled code directly as 
input to your assembler. Dis-assembles instructions and data. Produces code com- 
patible with the S-C Assembler (version 4. 01, Apple's Toolkit assembler and others. 
$25 Disk, Applesoft (32K, ROM or Language Card). 

FORM-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 
$25 Disk, Applesoft (32K, ROM or Language Card). 

UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft's CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 
$25 Disk, Applesoft. 

SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus. SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 
$15 Disk, Applesoft I32K. ROM or Language Card). 



(Add $4.00 for Foreign Mail) 
•Apple II is a registered trademark of the Apple Computer Co. 
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SOFTWARE UNLIMITED 



presenting the LARGEST SELECTION OF SOFTWARE EVER ASSEMBLED. 



for ATARI® • APPLE® • PET® • and other Microcomputers 



at SUPER DISCOUNT PRICES! 



ATARI 



D PHYSICS (AT) 24.50 

Q GREAT CLASSICS (AT) 24.50 

□ BASIC PHYSCOLOGY (AT) 24.50 

□ PRINCIPLES OF ECONOMICS (AT) ..24.50 

D SPELLING (AT) 25.50 

O BASIC ELECTRICTITY (AT) 24.50 

D BASIC ALGEBRA (AT) 24.50 

D 8K RAM MODULE (AT) 95.00 

D 16K RAM MODULE (AT) 170.00 

D KINGDOM (AT) 13.55 

D LEMONADE (AT) 13.55 

D STATISTICS I (AT) 17.95 

Q BLACKJACK (AT) 13.55 

D BIORYTHM (AT) -. 13.55 

HANGMAN (AT) 13.55 

□ SPACE INVADERS (AT) 17.95 

□ EUROPEAN CAPITALS (AT) 13.55 

□ MORTGAGE LOAN (AT) 13.55 

D STATES & CAPITALS (AT) 13.55 

D EDUCATION SYSTEM (AT) 22.50 

D ATARI BASIC (AT) 53.95 

D ASSEMBLER DEBUG (AT) 53.95 

D BASKETBALL (AT) 35.95 

□ VIDEO EASEL-LIFE (AT) 35.95 

CI SUPER BREAKOUT (AT) 35.95 

MUSIC COMPOSER (AT) 53.95 

□ COMPUTER CHESS (AT) 35.95 

D 3-D TIC TAC TOE (AT) 35.95 

D STAR RAIDERS (AT) 53.95 

D TELELINK (AT) 22.50 

□ PADDLES (AT) 17.95 

a JOYSTICKS (AT) 17.95 

D U.S. HISTORY (AT) 24.50 

U.S. GOVERNMENT (AT) 24.50 

Q SUPERVISERY SKILLS (AT) 24.50 

a WORLD HISTORY (AT) 24.50 

D BASIC SOCIOLOGY (AT) 24.50 

ADVENTURE INTERNATIONAL 

C ADVENTURE HINT SHEET 
D ADVENTURE (1.2.3) |D) 
D ADVENTURE (4,5.6) ID] 
D ADVENTURE (7,8,9) [D] 

D ADVENTURE »10 [D] 

D ADVENTURE (specify 1-10) (AP) . 

□ PLANETOIDS "ASTEROIDS' [D] (AP) 
D PLANETOIDS "ASTEROIDS" (AP) . 

D POKER (AP) 

D POKER (AP) [D] 

D KID VENTURE #1 (AP) 

AVAL0N HILL 

a MIDWAY (P.AP) 13.50 

D NUKE WAR (P.AP) . . 13.50 

□ PLANET MINERS (P.AP) 1150 

D CONVOY RAIDER (P.AP) 13.50 

D B1 BOMBER (P.AP) 13.50 

□ LORDS OF KARMA (P.AP) 18.00 

AUTOMATED SIMULATION 

a TUESDAY QUARTERBACK [D] (AP) . . . 26.95 

D STAR WARRIOR [CD] (AP) 35.95 

a THREE PACK [D] (AP.P) 45.00 

D STARFLEET ORION [C,D] (AP) 22.50 

D STARFLEET ORION [CI (P) 22.50 

Q INVASION ORION [GDI (AP) 22.50 

D INVASION ORION [C] (P) 22.50 

D APSHAI [D] (AP) 39.95 

D APSHAI |C] (P) 39.95 

D RYN [D.C] (AP) 17.95 

O RYN [C| (P) 17.95 

D MORLOC [CD] (AP) 17.95 

D MORLOC [CI (P) . . — 
D RIGEL [CD] (AP) . . 

D RIGEL [C] (R) 

□ HELLFIRE [D] (AP) 
D HELLFIRE [C] (P) . 



(AP). 
(AP). 
(AP). 



. 7.95 
35.95 
35.95 
35.95 
18.95 
13.55 
17.95 
13.55 
1155 
18.95 
13.55 



17.95 
26.95- 
26.95 
35.95 
35.95 



Check program desired. 
Complete ordering information 
and mail entire ad. 
Immediate Shipments from stock. 



KEY: 

AT-Atari 
AP-Apple 
P-Pet 
D-on Disc. 
C -Cassette 

If not marked-Cassette 

ATARI is a trademark of ATARI INC. 

APPLE is a trademark of APPLE COMPUTER, INC. 

PET is a trademark of COMMODORE BUSINESS MACHINES. 



QUALITY SOFTWARE 

□ 6502 DISASSEMBLER (AT) 10.55 

D ASTRO APPLE (AP) 13.55 

□ ASTRO APPLE (AP) [D] 17.95 

D ASTEROIDS IN SPACE [D] (AP) .... 17.95 

D ATARI ASSEMBLER. (AT) 22.50 

P BABBLE (AP) 13.55 

D BABBLE (AP) [D] 17.95 

D BATTLESHIP COMMANDER (AP) .... 13.55 
D BATTLESHIP COMMANDER [D[ (AP) . . . 17.95 

D BENEATH APPLE MANOR (AP) 13.55 

D BENEATH APPLE MANOR (AP) [D] ... 17 95 

□ FASTGAMMON [D] (AP) 22 50 

D FASTGAMMON (AP.AT) 17.95 

□ FORTH [O] (AT) 7000 

Q FRACAS ADVENTURE (AP) 17.95 

□ FRACAS ADVENTURE [D] (AP) 22.50 

D LINKER (AP) [D] 44.00 

D TANK TRAP (AT) 10.55 

D TANK TRAP (AT) [D] 13.55 

D TARI TREK (AT) 10.55 

□ TARI TREK (AT) (D) 13.55 

PERSONAL SOFTWARE 

D CCA DATA MGMT [D] (AP) 85.00 

D DESKTOP PLAN [D) (AP) 85.00 

D GAMMON GAMBLER (AP) 17.95 

D GAMMON GAMBLER [D] (AP) 22.50 

D MONTY MONOPOLY [D] (AP) 31 55 

O VISICALC [D] (AP) 125.00 

D VISICALC [D] (AT.P) 170.00 

INSTANT SOFTWARE 

D AIR FLIGHT SIMULATION (AP) 8.95 

D APPLE FUN [D] (AP) 17.95 

□ CASINO (P) 7.25 

D MORTGAGE (P) 7.25 

D PADDLE FUN [D] (AP) 17.95 

□ PENNY ARCADE (P) 7.25 

O PET UTILITY (P) 8.95 

a QUBIC 4/GOMOKU (P) 7.25 

a SANTA PARAVIA FIUMACCIO (AP.P) ... 8.95 
D SANTA PARAVIA FIUMACCIO (AP)[D) . . . 17.95 

D SAHARA WARRIOR (AP) 7.25 

D SKY BOMBERS (AP) [D] 17.95 

D SPACE WARS (AP) 7.25 

D SUPERSHOOTERS (AP) 8.95 

D TREK-X (P) 7.25 

STRATEGIC SIMULATIONS 

D COMPUTER AMBUSH [D] (AP) 51.50 

D COMPUTER BISMARCK [D] (AP) . . . 51.50 

D COMPUTER CONFLICT ID] (AP) .... 35.00 

D COMPUTER NAPOLEONICS[D](AP) . . . 51.50 

D COMPUTER QUARTERBACK [D](AP) . . . 35.00 

D AIR COMBAT [D| (AP) 51.50 

D WARP FACTOR [D] (AP) 35.00 

SUB-LOGIC 

D 3D GRAPHICS (AP) 40.00 

□ 3D GRAPHICS [D] (AP) 48.00 

D A2-FS1 FLIGHT SIMULATOR (AP) .... 22.00 

D A2-FS1 FLIGHT [D] (AP) 29.00 

MICROSOFT SOFTWARE 

□ ADVENTURE [D] (AP) 25.50 

D OLYMPIC DECATHALON [D] (AP) . . . 20.00 

D TYPING TUTOR (AP) [D] 17.95 

D TYPING TUTOR (API 13.55 

D 2-80SOFTCARD [D] (AP) 280 00 

D 16K RAMBOARD 165.00 



ON UNE SYSTEMS 

D HI-RES ADVEN. *0 (AP) [D] 17.95 

D HI-RES ADVEN. #1 [D] (AP) 22.50 

□ HI-RES ADVEN. *2 [D] (AP) 29.00 

a HI-RES FOOTBALL #1 [D] (AP) 36.00 

D HI-RES CRIBAGGE [D] (AP) 22.50 

D PADDLE GRAPHICS [D] (AP) 36.00 

D TABLET GRAPHICS [D] (AP) 44.95 



SIRIUS 



D CYBER STRIKE [D] 
O STAR CRUISER [D] 
D BOTH BARRELS [D] 
Q PHANTOM FIVE [D] 



(AP) 36.00 

(AP) 22.50 

(AP) 22.50 

(AP) 36.00 



SYNERGISTIC SOFTWARE 

□ DUNGEON & WILDERNESS [D] (AP) . . . 29.00 

D DUNGEON (AP) 13.50 

D DUNGEON [Dl (AP) 15.75 

D ODYSSEY [D] (AP) 27.00 

D HIGHER GRAPHICS [D] (AP) 31.50 

D WILDERNESS (AP) 15.75 

D WILDERNESS [D] (AP) 18.00 

B0RDERBUND 

D EMPIRE GALACTIC (AP) [D] . 

D GALAXIAN (AP) [D] 

D HYPER HEAD ON (AP) [D] . . . 

□ REVOLUTION GALACTIC (AP) 

D TANK (AP) [D| 

D TAWALA'S REDOUBT (AP) [D] 
D TRADER GALACTIC (AP) [D] . 



[D| 



22.50 
22.50 
22.50 
22.50 
13.55 
26.95 
22.50 



MUSE COMPANY 



D ABM [D] (AP) 2250 

D ADDRESS BOOK (AP) [D] 44 50 

D APPILOT II |D| (AP) 80.00 

D BEST OF MUSE (AP) [D] 35.95 

D GLOBAL WAR (AP) [D] 22.50 

D MATH-APPLESOFT (AP) [D| 35.95 

D SUPER TEXT II (AP) [D] 135.00 



D THREE MILE ISLAND (AP) 
D U-DRAWII (AP) [D] . 
O THE VOICE (AP) [D] . 



ID] 



D IRIDIS 1 

a IRIDIS 1 

D IRIDIS 2 

D IRIDIS 2 



(AT) 
(AT) 
(AT) 
(AT) 



IRIDIS 
EDU-WARE 

(AP) [D] . . . 



D COMPU READ 

D ESP (AP) [D] 

D NETWORK (AP) [D] 

D PRISONER (AP) [D] . 

D SPACE (AP) [D] 

□ SPACE II (AP) [D] . . 

□ TERRORIST (AP) [D] 



35.95 
35.95 
35.95 



. 8.95 
11.75 
14.50 
16.95 



22.50 
14.50 
17.95 
26.95 
26.95 
22 50 
26.95 



PR0GRAMMA 



D MICRO INVADERS (AP) 14 50 

a EXPAND-A-PORT (AP) 53.95 

D JOYSTICK (AP) 35.95 

D TINY PASCAL (AP) [D] 44.50 

□ SPACE WARS (AP.P) 8.95 

D WPS STANDARD (AP) [D] 117.00 

HAYDEN 

a SARGON II (AP) 25 00 

D SARGON II (AP) [D] 30 00 

D REVERSAL (AP) 25.00 



If you don't see it listed, write...we probably have it in stock! 



Ship the above programs as checked to: 



.Zip. 



name of Computer' 



with 



k memory Card No 



Number of Programs Ordered — 

Amount of order 

N.Y. residents add Sales Tax 

Add shipping anywhere in the U.S. ~53 

Total amount enclosed 

Charge my: D Master Charge D Visa 



Signature 



_ Expires . 



Personal Checks please allow 3 weeks. 



Mail to: 



DIGIBYTE SYSTEMS CORP. 



V Prices subject to change without notice. 



31 East 31st Street, New York, N.Y. 10016 
Phone: (212) 889-6975 
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The Atari Dulcimer 



The Atari 800 comes with four 
musical voices under program 
control through BASIC. The 
following program uses these 
voices to simulate a three-string 
plucked dulcimer, played in real 
time. 



Mike Dougherty 

Box 230, Rt. 5 

Kingston, Tennessee 37763 



The Atari 800 personal computer has 
many outstanding features. The four 
musical voices caught my attention 
first for three reasons: I enjoy music, I 
had not used a computer with musical 
capability, and the sound voices were 
easy to control from BASIC. Having 
musical experience with a plucked 
dulcimer, it was natural for me to 
attempt to simulate this instrument 
with the Atari 800. 

A traditional Appalachian-plucked 
dulcimer consists of a hollow, fretted 
fingerboard on top of a shallow sound 
box extending symmetrically on either 
side. The three-string dulcimer utilizes 
a single string to carry the melody, 
with the two remaining strings supply- 
ing a background harmonic "drone." 
The plucked dulcimer is typically 
played on the lap, the right hand strum- 
ming all of the strings with a pick, the 
left hand pressing the melody string to 
the frets with a "noter" stick. A 
background rhythm is impressed on the 
background drone and melody by 
strumming across the strings at dif- 
ferent rates. Most dulcimers have a 
scale consisting of approximately six- 
teen notes with no sharps or flats. In 
general, the dulcimer notes range from 
the G below middle C to the A in the 
octave above middle C. 



REM ATARI DULCIMER 

REM ... BY MIKE DOUGHERTY 
REM 
DIM NT(255): REM KEY/NOTE TABLE 
DIM LE(10): REM STRUM DURATION 
G0SUB 10000: REM INITIALIZATION 
REM 

REM MAIN SOUND LOOP 

REM 

FOR LOOP = TO 1 STEP 

FOR STRUM = 1 TO N 

FOR DUR = 6 TO 1 STEP - LE (STRUM) 

SOUND 0,163, 10, DUR:SOUND 1 , 243, 10, DUR: SOUND 2, 161, 10, DUR 
FOR WAIT ■ TO TEMPO 
KEY = PEEK (764) 

SOUND 3,NT(KEY) ,10,DUR+3 
NEXT WAIT 
NEXT DUR 

SOUND 0,0, 0,0: SOUND 2 , , 0, 0: SOUND 3,0,0,0 
NEXT STRUM 

IF PEEK (764) ■ 28 THEN GOTO 20000: REM RESTART PROGRAM 
NEXT LOOP 
REM 

REM INITIALIZE NOTES AND 

REM VARIABLES FOR DULCIMER 

REM 

GOSUB 30000: REM PRINT KEYBOARD 

255: REM INITIAL NOTE = NULL 
I = TO 22: READ T1,T2:NT(T1) = T2: NEXT I 
47,173,63,162,46,153 
62,144,42,136,58,128 
56,121,45,114,61,108 
43,102,57,96,1,91 
13,85,5,81,8,76 



1 

2 

3 

10 

20 

100 

1000 

1010 

1020 

1100 

1200 

1300 

1310 

1400 

1410 

1420 

1430 

1500 

1510 

1600 

1610 

1700 

10000 

10010 

10020 

10040 

10050 

10100 KEY 

10130 FOR 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10300 

10400 

10410 



10420 
10430 
10900 
20000 
20001 
20002 
20010 
20020 
30000 
30001 
30002 
30003 
30004 
30006 
30007 
30010 
30020 
30025 
30030 
30040 
30050 
30060 
30070 
30080 
30100 



0,72,10,68,2,64 

6,60,15,57,7,53 

12,50,60,47 

"TEMPO ";: INPUT TEMPO 

■# OF STRUMS/LOOP (MAXIMUM 

= 1 TO N 

■LENGTH OF STRUM t " ; I ; " "; 



10) 



INPUT N 



INPUT T1:LE(I) = Tl 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

PRINT 

PRINT 

FOR I 

PRINT 

NEXT I 

RETURN 

REM 

REM CLEAN UP AND RESTART 

REM 

SOUND 0,0, 0,0: SOUND 1 , 0, , : SOUND 3,0,0,0 
RUN 
REM 

REM PRINT THE NOTE/KEY 

REM CORRESPONDENCE ON 

REM THE SCREEN 

RFM 

GRAPHICS 0:SETCOLOR 2,9, 1 :SETCOLOR 4,3,4 

PRINT 
ncOSHARP" 



NATURAL" 
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Thus a simulation of a plucked 
dulcimer must contain at least the 
following elements: 



a single voice melody, 

a background drone of voices, 

a method to impress the strumming 

rhythm, 

the ability to do the above in real 

time. 



The Atari 800 keyboard was chosen 
for the melody input. The Atari 
Dulcimer maps the "standard key 
row" of A, S, D, F, ..., +, *, (caps 
lower] onto the thirteen notes of G, A, 
B, middle C, ..., E above middle C. In 
addition, the Atari Dulcimer also maps 
the row of keys Q, W, E, ... = , (return| 
onto the sharp notes. The mapping in- 
formation is maintained in the 256 ele- 
ment "NTE" array. The value of the 
current key pressed is determined by 
PEEK(764) and used as the index into 
"NTE". Each element of "NTE" con- 
tains either the proper pitch for that 
key, or a zero (which effectively turns 
off the melody voice) . Thus the follow- 
ing two BASIC lines read the keyboard 
and play either a note or a ' 'rest" on the 
melody, voice #3: 

KEY = PEEK(764) 
SOUND 3,NTE(KEY),10,~ 



Note that the keyboard space bar 
makes a very convenient "rest note" 
for the Atari Dulcimer. Although only 
23 of the 256 "NTE" elements repre- 
sent actual notes, this method allows 
direct table lookup of the pitch values 
for faster execution. Without this 
"wasteful" technique, real time play- 
ing of the Atari Dulcimer would be 
severely hampered. 



The background drone is simulated 
with the three remaining Atari voices: 
voice #1 sounding C below middle C, 
and voices #0 and #2 combining to 
sound G below middle C. The base G 
was simulated by two voices, each 
voice one value off the "true" pitch. 
This small discord gives a proper 
"twang" for a string sound. To main- 
tain the background nature of the 
drone, each background voice is played 
at a loudness of 3 levels below that of 
the melody voice. 



A strumming effect is* impressed 
upon the strings by allowing the 
loudness to decrease linearly with 
time. The length of the strum is deter- 
mined by the step size of the loop: 

FOR DUR = 6 TOO STEP 
-LENGTH(STRUM) 



execute either 
. SOUND--,--,DUR + 3or 
. SOUND --,--,DUR 

NEXT DUR 

Thus LENGTH(STRUM) = 1 is the 
slowest possible strum while 
LENGTH(STRUM)=6 is the fastest 
strum. (In general, 1 < = 
LENGTH(STRUM) < = 3 gives the 
best results.) The step size was chosen 
to control the duration of the loop in- 
stead of the limit (fixed at 6) so that 
both short and long strums would start 
at the same loudness. The current Atari 
Dulcimer allows for the definition of 
up to 10 different length strums in a 
song. 

The overall speed of the innermost 
delay loop is controlled by the 
"TEMPO" variable. The fastest possi- 
ble tempo (speed) of the program is 
with a zero "TEMPO". To play a song 
with no strumming, simply use a large 
value for "TEMPO". At the end of each 
set of strums, the keyboard is checked 
for the escape key. If the dulcimer 
player has played the note "ESC", then 
the program stops all of the voices and 
restarts. 



Table 1: Program Variables In Atari Dulcimer 

KEY last keyboard key 

pressed, stored in 
internal code 

NT (25 5) for each key pressed, 

as determined by 
PEEK(764], NTE(KEY) 
is the pitch for the 
sound command 

N number of strums in 

background harmonic 
drone 

LE(10) array containing the 

step increment that 
determines the 
duration of each 
strum: 1< = LENGTH 
(STRUM) < = 6 



TEMPO overall speed of the 

Atari Dulcimer — the 
limit of the innermost 
loop 

LOOP outermost sound loop 

index. LOOP uses a 
step size of zero to 
form an infinite loop 
— this method is faster 
than the use of 
GOTOs 

STRUM loop index for each 

user defined strum — 
the duration of each 
strum is controlled by 
LENGTH (STRUM) 

DUR loop index for strum 

loop — DUR controls 
the overall loudness of 
the music voices 

WAIT loop index for delaying 

the innermost loop to 
the limit of TEMPO 



Table 2: Sample Song Parameters for the 
Atari Dulcimer 



Song Title 


TEMPO 
STRUMS 
LENGTH( 1 
LENGTH(2 
LENGTH(3 


"Wildwood Flower" 


13 13 3 


"The Battle Hymn of 
the Republic" 


12 13 — 


"O Come All Ye 




Faithful" 


3 2 2 3 — 


"Loch Lomand" 


3 2 2 4 — 



Mike Dougherty graduated from the 
University of Tennessee in 1977 with a 
M.S. in Computer Science, and has been 
employed by Union Carbide at the Oak 
Ridge National Laboratory since that time. 
He has worked on several projects 
involving computers from the VAX 
11/780, down to single board 
microprocessors. His home-based system 
presently consists of an Atari 800 with 
24K bytes of memory. 
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Big Savin g s On Atari & PET! 



No Risk - No Deposit On Phone 
Orders - Shipped Same Day You 
Call - C.O.D. or Credit Card 

" On all in stock units 



Please Call Between 11AM & 6PM 
(Eastern Standard Time) 



(800) 233-8950 



ATARI® 800™ 
PERSONAL COMPUTER 

List $1080 
$759 




ATARI® 810™ 
DISC 
DRIVE /■ 

List $599.95 
New Low Price 

only $489.00 

ATARI' 



A N 




Maxell Disks 1 for $34 

Sycom Disks 10 for 29 

Atari Disks 5 for 22 



400 8K 

400 16K. 

410 Recorder. 

815 Disk. 

822 Printer . 

825 Printer . 

830 Modem. 

850 Interface Module . 

CX852 8K RAM. 

CX853 16KRAM 

CX70 Light Pen. 

CX30 Paddle 

CX40 Joystick 

CX86 Printer Cable. 
C016345 822 Thermal 

Printer Paper 

CA01 6087 825 80-col. 

Printer Ribbon 

(3/box) 

CX4 1 1 9 Conversational French 

CX41 1 8 Conversational German 

CX41 20 Conversational Spanish 

CX41 25 Conversational Italian 

CXL4009 Chess 

CXL401 1 Star Raiders'" 

CXL4004 Basketball 

CXL4006 Super Breakout" 

CXL401 3-D Tic-Tac-Toe 

CXL4005 Video Easel" 

CXL4007 Music Composer 

CXL4015Teletink™ 

CXL4002 BASIC Computing Language . 
CXL4001 Education System 

Master 

CXL4003 Assembler Editor 



17 
45 
45 
45 
45 
30 
45 
30 
30 
30 
30 
45 
20 
46 

21 
45 



CX41 15 Mortgage & Loan Analysis $13 

CX4101 An Invitation to Programming 1 ... 17 

CX41 06 An Invitation to Programming 2... 20 

CX41 17 An Invitation to Programming 3. . . 20 

CX41 07 Biorhythm 13 

CX41 03 Statistics I 17 

CX4121 Energy Czar 13 

CX4108 Hangman 13 

CX41 02 Kingdom 13 

CX41 1 2 States & Capitals 13 

CX41 14 European Countries 

&Captials 13 

CX41 05 Blackjack 13 

CX4111 Space Invaders 18 

CX81 06 Bond Analysis 20 

CX81 07 Stock Analysis 20 

CX81 08 Stock Charting 20 

CX4104 Mailing List 17 

CX41 1 Touch Typing 20 

CX81 02 Calculator 24 

CX4109Graph It 17 

CX41 20 Conversational Spanish 45 

Talk & Teach Courseware; 

CX6001 thru CX601 7 23 

Combination Special! 
825 Printer&850 Interface 

825 Lists for $1000 

Regular Mail Order Price: $779 
850 Lists for $220. 

Regular Mail Order Price: $179 

Save $20.00 
Buy Both For Only $938 



CX8104 Atari 810 
Master Diskette II 

New DOS 2 Operating 
System Master 

only $21.00 

Microtek RAM 16K or 32K 

• Full 1 year warranty 

• Compatible with 400 or 800 

• Assembled and Tested 

16K.... $ 99 

32K 189 

Atari Specialists . . . 

We Carry 
It All 



commodore 

V^ Commodore Computers: 

4032 N $1090 

4032 B 1090 

8032 1499 

Commodore Peripherals: 

CBM 4022 Printer 675 

CBM 4040 Dual Drive Floppy Disk . . . 1090 
CBM 8050 Dual Drive Floppy Disk ... 1 420 

CBM C2N Cassette Drive 87 

Tally 8024 Printer 1679 



EBS Accounts Receivable 

Inventory System $695 

Dr. Daley Mailing List 129 

Dr. Daley Inventory 89 

OZZ Information System 329 

BPI General Ledger 329 

Tax Package 399 

Dow Jones Portfolio Management 1 29 

Pascal 239 

PET to IEEE Cable 37 

IEEE to IEEE Cable 46 

NEW- 

8096 1890 

VIC -20 299 



Software 



WordPro 3 (40 col.) $186 

WordPro 4 (80 col.) 279 

WordPro 4 Plus (80 col.) 339 

Visicalc - Apple $122 

Atari 163 

PET 163 



Printers 



NEC 5530 $2495 

Diablo630 2195 

Trendcom 1 00 299 

Trendcom 200 489 

Paper Tiger 445G 769 

Paper Tiger 460G 1219 

Epson MX-80 539 



To Order: 

Phone orders invited (800 number is for order desk only). Or send check or money order. 
Equipment Shipped UPS collect. Pennsylvania residents add 6% sales tax. Add 3% for 
Visa or MC Equipment is subject to price change and availability without notice. 



Computer Mail Order 
501 E. Third St. 
Williamsport, PA 17701 
(717)323-7921 
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By Loren Wright 

Upgrade Decisions 

The decision to upgrade from 1 .0 to 
2.0 ROMs was very easy for many PET 
users. 2.0 corrected several bugs in the 
1.0 ROMs, but the most significant 
reason to upgrade was to accommodate 
a disk drive. Other users (without disk 
drives) stayed with the 1.0 ROMs and 
have been putting up with the bugs. 

The arrival of the 4.0 ROMs 
presents us with different kinds of deci- 
sions. To be sure, Commodore has 
stopped making 2.0 ROM machines, 
and these will eventually receive less 
support in hardware and software. That 
reason alone is not sufficient for an 
upgrade. After all, 1.0 ROM PETs are 
still alive and reasonably well. 

The most important reason is the 
new DOS — 2. 1 if you buy a 4040 disk 
drive or upgrade a 2040, 2.5 if you buy 
an 8050. BASIC 4.0 is built around 
DOS 2.1/2.5. All commands are handled 
directly by the DOS, without com- 
plicated secondary addresses or having 
to load a DOS program. A new, effi- 
cient, relative-record system has been 
added, and several other operations 
have been improved. Most commands 
require only a file name. 

The other major change with BASIC 
4.0 is the improvement of the garbage 
collection process. Every time memory 
gets tight, BASIC has to clear memory 
of old copies of dynamic strings. With 
older BASICS, this could take up to 20 
minutes. 4.0 BASIC collects its garbage 
in less than one second. 

Disk-O-Pto: An Alternative to a 4.0 
Upgrade? 

Disk-O-Pro combines the 4.0 
BASIC disk commands [for the 2.1/2.5 
DOS) with several other commands 
and features. It is a 4K ROM, addressed 
$9000-$9FFF, and works with 2.0 ROM 
(level m BASIC) PETs and CBMs. It is 
designed to be compatible with the 
Toolkit. In fact, initializing Disk-O-Pro 



will also initialize the Toolkit, if it is 
present. Disk-O-Pro is available from 
Skyles Electric Works for $75. 

The SEW [Skyles Electric Works) 
group includes a number of commands 
not available in any Commodore 
BASIC. A few of the commands need 
more discussion than is presented in 
the table. The SCROLL command 
turns a BASIC program listing into a 
continuous cylinder, which can be 
moved through the screen, in either 
direction, with the cursor control keys. 
Also enabled by the SCROLL command 
are repeating keys and the "softkey." 

The "softkey" is a user-defined se- 
quence of characters, which is executed 
when the assigned key is hit. The max- 
imum length of this sequence is 60 
characters for Disk-O-Pro used with 
the Toolkit, and 80 characters without 
the Toolkit. 

PRINT USING is a command for 
formatting output of strings and 
numbers. This is particularly useful 
when handling dollar and cent figures. 
Lining up decimal points, embedding 
commas, and adding trailing zeroes 
after the decimal point, can be 
automatically accomplished with a 
single PRINT USING statement. 

BEEP controls a speaker connected 
to the CB2 line of the parallel user port. 
The STOP key acts like the DELETE 
key, except characters disappear to the 
light of the cursor. 

Because most of Disk O- Pro' s com- 
mands work both in immediate and 
programmed modes, Disk-O-Pro has to 
intercept the PET's command input 
every time to check for its own com- 
mands. This means that program ex- 
ecution is slowed down— usually less 
than 20%— but sometimes a lot more. 
Fortunately, there is a KILL command, 
so that Disk-O-Pro can be disabled dur- 
ing those parts of the program where 
execution speed is important. 

The disk commands are essentially 
the same, but there are minor dif- 
ferences, which could pop up unex- 
pectedly. For instance, with Disk-O- 
Pro, specifying the disk unit ( . . .ON U9) 
resets the default device number to the 
one specified. In BASIC 4.0 the default 
device number is always 8. There are 
also differences in when the error chan- 
nel is checked, and whether a carriage 
return has to be output after each 



PRINT# command. The Disk-O-Pro 
disk commands are recognized by 
BASIC 4.0, and vice veisa. The slight 
differences in interpretation will not be 
a problem for the average user. 

There is some incompatibility be- 
tween programs written with and 
without Disk-O-Pro. When writing 
REM and DATA statements with Disk- 
O-Pro, REM must be followed with a 
quote and DATA must be tokenized as 
" \ " , otherwise these lines will be 
unreadable without Disk-O-Pro. Of 
course commands such as PRINT 
USING and BEEP will not be recog- 
nized without Disk-O-Pro. 

The ROM occupies the same 4K 
block as the protection ROMs for 
Wordpro and VisiCalc, but these ROMs 
can be changed manually or by using a 
programmable ROM switch. Also, 
Disk-O-Pro does not speed up garbage 
collection — a major feature of BASIC 4.0. 

Finally, I should point out that 
Disk-O-Pro is not BASIC 4.0, even if it 
behaves that way. Commercial soft- 
ware written specifically for BASIC 4.0 
won't run with BASIC 2.0 and Disk-O- 
Pro. 

Disk-O-Pro adds some really 
outstanding capabilities to your PET. 
However, you will have to make your 
decision based on your own cir- 
cumstances. Disk-O-Pro offers com- 
patibility with DOS 2.1/2.5, BASIC 
4.0, and the Programmer's Toolkit, 
along with many other useful features. 
The price of Disk-O-Pro is slightly 
lower than that of a BASIC 4.0 upgrade. 
If you already have a Toolkit, then the 
price difference is more significant, 
since you would then have to replace 
your Toolkit with a 4.0 version. 
However, if you need faster garbage col- 
lection, full-speed operation, full com- 
patibility with others' computers, and 
access to the latest commercial soft- 
ware, then you need BASIC 4.0. 

Command-O: Enhancements for 
the 80-Column CBM 

Command-O is also a 4K ROM, ad- 
dressed $9000 - $9FFF, but it is only for 
4.0 ROM machines — particularly the 
CBM 8016/8032. It is available from 
Skyles Electric Works for $75. This 
ROM includes the SEW commands 
described above for Disk-O-Pro. The 
only difference is that the "softkey" 
may be SET to 190 characters. The rest 
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of the 4K ROM is occupied with the 
Editing/ Debugging commands from 
the Programmer's Toolkit. 

There is also a MOVE command 
that allows you to position the cursor 
at any row, column-specified point on 
the screen. The 'ESCAPE' key is con- 
verted to a 'CONTROL' key, enabling 
more convenient use of the 8016/8032 
screen functions. As examples, 
'ESCAPE-DELETE' deletes a text line, 
'ESCAPE-G' sounds a beep, and 
'ESCAPE-CLEAR' sets the upper left 
corner of the window. 

Three of the Toolkit commands are 
included in improved versions. FIND 
and RENUMBER allow the operation to 
be restricted to a specified range of line 
numbers. TRACE displays each line 
before it is executed, and a STEP mode 
is included. 

As with Disk-O-Pro there are poten- 
tial problems with slower execution 
speed and incompatibility with non- 
Command-O systems. Since most of 
Command-O's commands apply only 
in the immediate mode, it is more con- 
venient to turn the ROM off with the 
KILL command when execution speed 
is critical. The combination of the SEW 
commands and improved Toolkit com- 
mands makes Command-O a very 
significant addition to your system. 
Unlike Disk-O-Pro, it is not being sold 
as an alternative to a BASIC upgrade. 



Programmer's Toolkit: The Old 
Standby 

The Programmer's Toolkit is a 2K 
ROM, available in versions for all three 
Commodore B ASICs. The price varies 
from $40 for just the ROM, to $60 for 
the ROM with an adaptor board that 
connects to the memory expansion 
port. The addressing is $B000 - $B7FF 
for 1.0 and 2.0 ROMs, and $A000 
-$A7FF for 4:0. The Programmer's 
Toolkit is manufactured by Palo Alto 
Integrated Circuits (PAICS) and sold 
not only by them, but also by dealers 
throughout the country. 

This product was reviewed in the 
August, 1980 MICRO (27:31) by James 
Strasma. Unlike Disk-O-Pro and 
Command-O, all its operations take 
place in the immediate mode. 
Therefore, there is no problem with in- 
compatibility or slowed execution. 



$F000 
$E000 
SDOOO 
$C000 
$B000 
$A000 

$9000 

Toolkit 
Disk-O-Pro 
Command-O 
BASIC 4.0 Upgrade 



2.0 
BASIC 


2.0 
BASIC 


2.0 
BASIC 


4.0 
BASIC 


4.0 
BASIC 


4.0 
BASIC 








Toolkit | 


| Toolkit | 



Disk-O-Pro 




Disk-O-Pro 



| Toolkit 



Command-O 



$40 



$75 



$ 40 
$ 75 



$89 



$ 40 
$ 89 



$ 75 
$ 89 



$40 



$75 



$115 



$89 



$129 



$164 





Programmer's 












Toolkit 












{available 


Disk-O-Pro 


Command-O 






Command 


1.0. 2.0. 4.0) 


12.0 only) 


14.0 onlrl 


4.0 BASIC Description 


SEW Group 












INITIALIZE 




X 


X 




Initialize disk|s|. 


MERGE 




X 


X 




Disk append (similar to Toolkit 
"APPEND") or overlay. 


EXECUTE 




X 


X 




Load and run a program from 
disk. 


SEND 




X 


X 




Send a disk command- 


SCROLL 




X 


X 




Turn on enhanced screen editing 
(see text). 


SET 




X 


X 




Define softkey. 


OUT 




X 


X 




Turn off SCROLL functions. 


PRINT USING 




X 


X 




Formatted output of numbers and 
strings. 


BEEP 




X 


X 




Controls length and pitch of tone. 


KILL 




X 


X 




Remove Disk-O-Pro or 
Command-O from system. 


DOS 2.1/2.5 Group 












CONCAT 




X 




X 


Concatenate one file to another. 


DOPEN 




X 


o 


X 


Open disk file. 


DCLOSE 




X 


o 


X 


Close disk file. 


RECORD 




X 


X 


Position disk at desired relative 








< 




record. 


HEADER 




X 


a 


X 


Formats a disk. 


COLLECT 




X 


T3 


X 


Cleans up improperly closed files. 


BACKUP 




X 


V 

•a 


X 


Duplicate one disk onto another. 


COPY 




X 


a 
.5 


X 


Copies one disk to another 
without altering the second. 


APPEND 




X 


T3 
C 


X 


Like DOPEN, hut applies only to 
sequential files. 


DSAVE 




X 


E 


X 


Save a BASIC text file on disk. 


DLOAD 




X 


| 


X 


Load a BASIC text file from disk. 


CATALOG 




X 


U 


X 


Display disk directory. 


RENAME 




X 


V 


X 


Change the name of a file. 


SCRATCH 




X 


1 


X 


Remove a file from disk. 


DIRECTORY 




X 


X 


Display disk directory. 


Editing and 












Debugging Group 












AUTO 


X 




X 




Automatic line numbering. 


DUMP 


X 


1 


X 




List values of all non-array 






6 




y 


variables. 


DELETE 


X 


Ji 


X 


55 
< 


Delete lines within range 






Q 




CQ 


specified. 


EDMD 


X 


£ 


X 


O 


Find command or string in BASIC 






% 






program. 


HELP 


X 


X 


«— 


Indicate errors in BASIC line. 


TRACE 


x 


3 


X 


3 


Display program line and execute 






w 




« 


through program. 


OFF 


x 


E 


X 


'3 

> 


Turn off trace. 


RENUMBER 


x 


o 
u 


X 


« 


Renumber program or program 






« 




3 


segment. 


STEP 


X 


M 


IX] 


o 


Step through program (included 






o 
H 




H 


in Command-O TRACE). 


APPEND 


X 


[XJ 




Append program (included in 












Command-O MERGE). 
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People Who Know Quality and Need Speed, Flexibility and Reliability 

Demand 



f 



J INS AM 80 

Data manager for 32K 8000 series Commodore computers. 

Want To Know Why? 

* Commodore approved software. 

* Unlimited definable categories. 

* Unlimited record length. 

* Unlimited data bases per disk. 

* Custom reports and labels. 

* Machine sorted by three categories at once. 

* Performs calculations and statistics. 

* Interface with Word Pro 4™ and/ or Word Pro 4 + ™ 

* Recommended by Professional Software 

Want To Know More? 

See your local dealer, send for descriptive information, or send $15.00 
for your own demonstration disk. 

Jini Micro Systems, Inc. 

Box 274 M.8 
Riverdale, NY 10463 



Word Pro and Word Pro 4+ are Trademarks of Professional Software. 
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This circuit interfaces an IBM 
2740 Communications Terminal 
to an 8-bit parallel port. Soft- 
ware is included for a PET 
implementation, but is easily 
converted to other micro- 
computers. 



William F. Pytlik 
9012 Maritime Court 
Springfield, VA 22153 



Of the many uses of personal 
computers, one of the most useful and 
about which much has been written is 
word processing. For many, word 
processing is a "nice to have" feature, 
and in most cases well outside financial 
means. Daisy Wheel printers and the 
associated hardware/software needed 
to use the PET for word processing may 
cost in excess of $4000. 

Fortunately, an alternative exists 
for those who wish to use their PETs 
for limited word processing; that is, the 
occasional letter, technical report, or 
magazine article. The alternative is 
based on the use of the IBM 2740 
Communications Terminal. These 
surplus terminals are available from a 
variety of sources and range in price 
from $100 to $600 (without interface 
electronics). All these terminals have 
one thing in common— they are heavy 
duty IBM Selectric typewriters, 
modified with solenoids, which ac- 
tivate the proper mechanical action of 
the typewriter. Therefore, to use the 
PET for simple word processing is con- 
ceptually simple. First an interface 
between the PET and the typewriter 
must be designed. Then appropriate 
software must be written that will per- 
mit creation of text and, via the PET 
user port, drive the proper Selectric 
solenoids. 



Figure 1 presents a photograph of 
my system. Note the large keyboard in 
front of my PET. This keyboard is a 
standard replacement part available 
from the Commodore Service Depart- 
ment. The case must be fabricated 
separately. The keyboard simply plugs 
into the PET main circuit board in 
place of the small keyboard. The 
"black box" between the PET and the 
Selectric houses the interface 
electronics. 



The interface converts the user port 
TTL voltage levels to voltage levels 
required to drive the Selectric 
solenoids. Figures 2 and 3 present the 
schematic of interface and power sup- 
plies. I made my own printed circuit 
board, but this circuit can be 
constructed using a general-purpose 
hobbyist PC board or by wire- 
wrapping. The interface converts the 5 
volt TTL levels of the PET to the 
voltage level (35 to 55 VDC) required 
by the Selectric solenoids. The voltage 
is not critical — IBM uses 48 VDC. I 
used a 27 volt transformer which I had 
available, resulting in a DC voltage of 
38 volts. The 38 VDC on my Selectric 
is applied to pin 2 of the "t" connector. 
Since other terminals may be different, 
the positive voltage should be applied 



to the appropriate connector for that 
terminal. The solenoids are activated 
by grounding the proper solenoid. The 
proper activation of a combination of 
four rotate solenoids and two tilt 
solenoids results in a character being 
typed. Additionally, several other 
solenoids are required for control 
characters, etc. These include a check 
solenoid (required for all printable 
characters), space, backspace, index, 
shift, and carriage return solenoids. 
Thus, a total of twelve solenoids must 
be addressed by the eight output port 
lines. Consequently, a hardware 
decoding scheme is necessary. An 
analysis of the schematic (figure 2) 
readily reveals the decoding scheme. 

IC2 and IC3 (74LS126) simply act as 
buffers between the PET and the inter- 
face. IC4, IC5, IC6 (74LS02) are used as 
decoders and drivers for the solenoid 
drivers [transistors Ql to Q12). Thus a 
"0" at the output port energizes a 
solenoid by turning on one of the tran- 
sistors. Transistors Ql to Q12 
(2N3904) are simple switching 
transistors. I used 2N3904's because 
they were readily available. They work 
well switching the 38 volts. If higher 
voltage levels are used, then a higher 
voltage transistor must be used (i.e. 
TIS95). 



Figure 1 









k"Xif»:-i 



T'vfi 
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Two power supplies are required. A 
one amp unregulated 35 to 55 VDC is 
required to drive the solenoids while a 
regulated 5 VDC power supply is 
needed for the interface logic circuitry. 
All components (with the exception of 
the 7500 microfarad, 50 volt capacitor) 
are mounted on the single PC board. 
Figure 4 presents a photograph of the 
completed board mounted in the 
chassis. 

The capability to drive the 
solenoids now exists. The remaining 
problem is to provide the proper timing 
and appropriate code to print the right 
character or effect proper operation. 
Table 1 presents the code conversion 
details. To pick a solenoid requires 
approximately 10 miliseconds (ms). 
To complete the mechanical action of 
printing a character requires an addi- 
tional 60 ms. The time the carriage 
return requires is considerably longer. 
Since printing each character takes a 
minimum of 70 ms, there is no need for 
a machine language program. A BASIC 
program can adequately drive the 
typewriter at its maximum speed. 



Table 1: Code Selection Chart 



T2 








1 1 


C 


R 


R R R 


Tl 





l 


1 


k 


5 


2 2 1 
A 


U 


# 




$ . 





1 


1 1 1 


N 


9 


z 


r i 





1 


1 1 


S 


6 


w 


o f 





1 


1 1 


H 


4 


u 


m d 





1 


1 


I 


2 


s 


k b 





1 


1 


F 





@ 


- & 





1 





T 


8 


V 


q h 








1 1 


E 


7 


X 


P R 








1 1 


D 


5 


V 


n e 








1 




3 


t 


1 c 








1 




1 


/ 


J a 











S 


II 


1 


! ~> 





1 


1 1 1 


H 


[ 


Z 


R I 





1 


1 1 


I 


; 


W O F 





1 


1 1 


F 




UM D 





1 


1 


T 


< 


S 


K B 





1 


1 


E 


1 




_ + 





1 





D 


* 


Y 


Q H 








1 1 




> 


X 


P G 








1 1 




% 


V 


N E 








1 






T 


L C 








1 






7 


J A 












Note: The codes above must be sent to 
the interface for proper operation. To 
generate a space the NO-PRINT and 
CHECK solenoids must be picked. 



PA 7 
PA 6 

PA 4 
PA 5 
PA 3 

PA 2 
PA 1 

PA 


t 2 


B^ - 




1 




Rl-Rl 


Q1-Q12 


TO 
\ SOLENOIDS 

_ 

E 

11 TRANSISTOR 
DRIVERS AS 
ABOVE 

NOTE: ON IC2, IC3 
PINS 1,4,10,13,14 

at +5V 
PIN 7 at ground 

ON IC4, IC5, IC6 
PIN 14 at +5V 
PIN 7 at ground 




3IIC4 XJ — 






t 9 

12 

2 


ir> 6 




5 _\ \ 


4 


_1_ 


^r> 8 




1 


T1 IC4 Jo- 
ii \ "\ 


3 

10 
1 


\ 


SPACE 
Tl 

T2 

R5 

BACKSPAC 

— R2A 

INDEX 

R2 

SHIFT 

Rl 

CARRIAGE 


i>> X1 




li2 i IC4 yo- 

\ 8 \ "^ 


[>>. 3 




| 9 j IC4 V>- 
2 ^ -^ 








3 I IC5 V- 


4 


/ 






~~ 1 y 




6 /J 


13 


^ 


^c> 6 




/ y 

12 \ \ 








11 IC5 )o— 


10 






/ y 




ft ICb A^ - " 


1 


9 


^> 8 




/ y 

2 \ -\ 








3 1 IC6 Vv- 




4 






~L y 

\ ice i\~_ 




6 ) M- 


n 


»4 


\ 11 




12 r 


c > 






. 1 TCfi V.,,,. 


t^ 


4 JCr- 


10 






^ y 

iceV 




8 /J— 


ce 


/ 

Logic 


RETURN 






/ y 

Figure 2: Irtterfe 
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Figure 3; Power Supplies 
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Listing 1 presents the BASIC 
program required to read text from tape 
and type it on paper. The program is 
well documented and needs little 
explanation. Some items should be 
noted. First, the shift solenoids are 
latched; that is, once picked, the 
typewriter remains in that case until 
the solenoid is picked again. The 
program keeps track of case and 
appropriately picks the shift solenoid. 
The program assumes that the 
typewriter is in lower case when it is 
turned on. There is no guarantee of 
this. Consequently, the program asks 
you to check for case at the beginning 
of every page typed. This is simply 
done by manually typing a character. 
Secondly, the code used in this program 
is for the BCD type ball only. The code 
may be changed to accommodate other 
type elements, but the typewriter will 
no longer function in the manual 
mode. To determine the proper code, 
trial and error methods may be the 
best. Throughout the program a series 
of delays are introduced. These are re- 
quired to give adequate time for 
solenoid activation. These may have to 
be adjusted for a given terminal. 

Finally, a word about the look-up 
table. The code for shifted and 
unshifted characters is the same — the 
position of the shift solenoid deter- 
mines case. Consequently, when the 
look-up table was developed, 64 was 
subtracted from the code of the shifted 
characters. This permits easy iden- 
tification of shifted characters. Before 
the code is sent to the interface, 64 is 
added back. 



The PRINT program assumes that 
data is written on a file. The text is 
then retrieved, one character at a time, 
and printed. Thus, a program is 
required to create the text. Listing 2 
presents a simple approach to word 
processing. Features include update 
capability. The program requires the 
use of two cassette drives, but this can 
be changed if two cassettes are not 
available. The program is well 
documented. The following 
symbols/codes are used: 



shifted & 


end of text 


<- 


backspace 


shifted $ 


underline 


shifted " 


can be used in lieu of 




space 


cursor down 


index 


cursor left 


deletes these 




characters 


delete 


deletes that line 


return 


carriage return/ end of 




line 



During Update only: 



return 
A 



shifted 

delete 

home 



line of text OK 
permits insertion of 
additional text 
retains previous line 
permits insertion of 
additional text 
deletes previous line 
end of insertion 
deletes that line 
deletes displayed line 
— a new line must be 
entered 



Figure 4 




Both the CREATE and PRINT 
programs are slowed because of the 
many REM statements. To speed up 
program execution I recommend 
removal of REM statements prior to 
use. 

Using the Selectric to check your 
draft is slow. Listing 3 presents a short 
program which provides a quick listing 
of the text on my AXIOM printer. The 
program will only work with an 
AXIOM printer and must be modified 
for use on other high speed printers. 

In conclusion, the word processing 
capability is limited, but it is low cost. 
Additional features can readily be 
added to the CREATE program, but, for 
the average user, like myself, the 
limited capability provided in this arti- 
cle is all that is really necessary. 



Ed. Note: To convert 
these programs to other 
machines, the following in- 
formation will be useful. 
Reverse field characters per- 
form cursor control func- 
tions, such as clear screen, 
cursor right, and cursor 
home. Decimal address 
59459 is the data direction 
register for the PET's parallel 
port and 59471 is the write 
address for the port. 



Parts List 


Tl 


6.3 volt Transformer 


T2 


27 volt Transformer 


IC1 


7805 5 volt Voltage Regulator 


IC2,IC3 


74LS126 Quad Buffers 


IC4-IC6 


74LS02 Quad NOR Gates 


R1-R12 


IK V* watt Resistor 


Q1-Q12 2N3904 


Bl 


50 PIV 1 amp Bridge 


B2 


100 PIV 1 amp Bridge 


CI 


5000 uf 12 volt Capacitor 


C2 


.22 uf Capacitor 


C3 


.1 uf Capacitor 


C4 


7500 uf 50 volt Capacitor 


MISC 


Chassis, Wire, Sockets, etc. 
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18 


REH *** SELECTRIC 


PRINT ROUTINE *** 


SB 


INPUT"LiIS TYPEWRITER IN LOWER CASE - 


-Y 


R N";LC* 




38 


IF LC*="N" THEN G 


OSUB 848 


48 


REM IF THE TYPEUR 


ITER IS IN UPPER 


CASE 


THE SHIFT SOLENOID IS PICKED 


56 


POKE 59468,14 




69 


REM PLACE PET IN 


LOWER CASE MODE 


78 


CODE5i=8 




80 


REH INITIALIZE SHIFT CODE — 0=LOWER 








90 


INPUT "RENTER FILE 


NfiMfc." j iEXT* 


100 


PRINT 




110 


DIM H<220) 




129 


REM SELECTRIC CO 


DE LOOK-UP TABLE 


138 

47 

148 


fi< 13)=254:flc 17)= 


251 : fit 32 )=61 : fit 33 >= 


fi<34)= 15:ft<35>= 


79: fit 36 >=1 11 


156 


fi<37)= 2:FK38)= 


128: At 39)= 11 


166 


At 40;-= 14: fl< 41 )= 


8: fit 42)= 6 


170 


fi<43)= 56:fi<44)= 


95: At 45)= 104 


180 


fi<46)=127:ft<47)= 


88: At 48)= 72 


198 


AC 49)= 64:FK5@> 


73:fK5i>= 65 


£00 


RX5£)= 74:ft<53)= 


66: fit 54)= 75 


216 


fl<55>= 67:fi<56)= 


78: fit 57)= 78 


220 


fK53)= 18:fif59>= 


1 : fit 60 )= 9 


238 


fi< 6 1 )= 8 




248 


fi<62>= 3:FK63)= 


1 6 : At 64 )= 88 


258 


fi<65)= 48:A<66)= 


57: fit 67)= 49 


269 


fit 68 )= 58 : fl< 69 >= 


50 : A*: 78 >= 59 


278 


AC71 >= 51:fi<72 )= 


54: fit 73)= 62 


288 


fK74)= 3£:FK75)= 


41: At 76)= 33 


£90 


FK77)= 42:fi<78>= 


34: AC 79 >= 43 


300 


A<88 )= 35:fi<81 >= 


38: At 82)= 46 


318 


fi<83)= 25:fi<84)= 


1 7 : At 85 >= £6 


328 


H<86)= 18:fi<87)= 


£7: At 88)= 19 


339 


FK83)= 22:fl<98)= 


3@:fi<91)= 4 


348 


fi< 163')= 40:fK93)= 


= 63:fi<94)= 31 


358 


Hf95)=£47:A<: 193)= 


=112: fit 194)=121 


368 


fi< 195>=113:fi< 196 


)=122:fit 197)=114 


378 


fit 198 >= 123: fit 199 


>= 1 1 5 : A< 280 >= 1 1 8 


380 


FK281 >=126:fi<282 


)= 96: fit £83 5=165 


396 


H<204>= 97:fl<205 


>=186:fit206)= 98 


408 


fi<207>=107:fl<208 


)= 99: fit 289)= 182 


418 


H<2i0>=li8:fi<211 


)= 89: AC 212>= 81 


428 


fit 213)= 90:fi<214>= 8£:R<215>= 91 


438 


FK216')= 83:fi<217 


)= S6:i-K£18)= 94 


448 


fi< 123>= 88:fi< 164 


>=40 


458 


REM PROGRAM OUTPUT PORT FOR WRITE 


466 


POKE 59459,255 




478 


POKE 59471,255 




488 


REM OPEN FILE UH 


ICH CONTAINS TEXT 


498 


OPEN 1,1, 8, TEXT* 




508 


PRINT"L'INSERT PA 


=-ER AND PRESS RETUR 


H WHEN READY" 





518 GET D*:IF D*= n " THEN 510 

520 GET#1,A* 

538 PR I NT A*; 

548 REM CHECK FOR END OF FILE 

558 IF ST>8 THEN 770 

560 REM IF CHARACTER IS RETURN THEN 
ACTIVATE CARRIAGE RETURN 

570 IF RSCtfi*)=13 THEN POKE 59471, 254 :P 
OKE 59471,255: G0SUE3 1 : G0T0520 

588 REM IF CHARACTER IS A SPACE THEN 
PRINT THE SPACE. THIS IS DONE UNIQUELY 

590 REM BECAUSE fK flSCt P.* ) > IS LESS THEN 

64 BUT IS HOT A SHIFTED CHARACTER 

608 IF fiSC<fi*)=32 THEN 698 

618 REM THE NEXT FEU LINES OF CODE 
CHECK FOR UPPERS-LOWER CASE AND SEND 

6E8 REM APPROPRIATE CODE TO USER PORT 

638 IF fi<fiSCtft*)K64 THEN 660 

648 IF CODE5c=l THEN C0DE>;=8:G0SUB 848 

658 GOTO 688 

668 IF CODEJ:=l THEN 688 

678 CODE>;=l:GOSUB 848 

688 IF CODE^=l THEN POKE 59471 , fie ASCt H* 
))+64:G0TO 710 

698 POKE 5947 1, fit fiSCtfi*)) 

768 FOR 1=1 TO 2:NEXTI 

718 POKE 59471,255 

728 REM DELAY TO PERMIT SOLENOIDS AND 
PRINT MECHANISM TO REACT 

738 FOR 1=1 TO 8: NEXT I 

748 REM CHECK FOR END OF PfiGE 

758 IF fi*="l« THEN POKE 59471 ,255: GOTO 
780 

768 GOTO 528 

778 POKE 59471,255 

780 CLOSE 1 

798 END 

888 REM DELfiY NEEDED FOR CRRRIfiGE 
RETURN 

818 FOR 1=1 TO 500:NEXT I 

820 RETURN 

838 REM SHIFT 

840 POKE 5947 1,253: FOR 1 = 1 TO 5 : NEXT I: 
POKE 59471, £55: FOR 1=1 TO 10: NEXT I 

856 RETURN 



c 



10 


REM 


***CREHTE TEXT* 










29 


DIM 


TEXT*< 68 ) 










39 


INPUT"LiENTER LENGTH 


OF 


LINE' 


;LN 




40 


INPUT"ENTER NUMBER 


OF 


LINES 


PER 


PAGE 


";PL 












50 


X=0 


XI = 1 











4/ 
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55 REM PLACE PET IH LOMER CASE MODE 

68 POKE 59468,14 

70 INPUT-ENTER FILE NAME" ;FI* 

86 INPUT-UPDATE Y OR N"jUD* 

168 PRINT"!,'" 

185 REM OPEN CASSETTE 2 FOR WRITE 

116 OPEN 2,2,1,FI* 

138 IF UD*="N" THEN 310 

135 INPUT" INSERT ADDITIONAL TEXT BEFORE 
MAIN TEXT— IF YES ENTER A";U* 

136 REM OPEN CASSETTE 1 FOR READ 
140 OPEN 1,1,8,FI* 

145 IF U*="A" THEN 318 

158 PR I NT "L," 

155 REM GET ONE LINE OF TEXT ONE 
CHARACTER AT A TIME 

160 B*="" 

176 GETtl.fi* 

188 IF R5C<R*>=13 THEN TEXT*< XI >=B*: GOT 
0216 

196 B*=B*+fl* 

208 G0T0178 

£16 IF ST=64 AND UD*="Y" THEN X=i:GOTO 
310 

215 REM PRINT LINE OF TEXT ON SCREEN 

228 PRINT TEXT*( XI) 

225 REM NEXT LINES DETERMINE WHAT IS TO 
BE DONE WITH LINE OF TEXT 

236 GET U*:IF U*=""THEN 238 

£46 IF RSC<im=13 THEN X1=X1+1:G0T0 160 

258 IF RSC<U*>=28 THEN 168 

268 IF fiSC<U*>=I9 THEN 320 

270 IF U*="R" THEN X1=X 1+1: GOTO 328 

280 IF U*="I" THEN 328 

298 PR I NT "WRONG CODE— REENTER" :G0T0 238 

360 G0T0168 

310 PRINT-ENTER TEXT" 

320 TEXT*<X1)="" 

325 REM SET RIGHT HAND MARGIN 

330 FOR 1=1 TO LN:PRINT"1";:NEXTI:PRINT 
"I"j:FOR 1=1 TO <LH+1):PRINT"H";:NEXTI 

335 REM GET CHARACTERS FROM KEYBOARD 
USE "I" FOR END OF TEXT 

348 GET A*: IF fl*="" THEN 348 

345 REM INDICATION FOR END OF INSERTION 

350 IF A*="»" THEN 168 

368 IF fl*="i" THEN 498 

378 IF RSC<fl*)=20 THEN PRIHTCHR*-; 13 ;:G0 
TO 320 

375 REM SUBROUTINE 548 MAKES PET KEYBOR 
RD LOOK LIKE H TYPEWRITER KEYBORR 
D 

388 GOSUB 540 

398 PR I NT A*; 

406 IF ASC<fl*>=13 THEN 458 



405 


REM IF CURSOR LEFT 


THEr- 


PREVI 


01 i'~< 




CHARACTER'S) I 


S DELETED 




418 


if asc<:r*>= 


=157 THE 


N TE>- 


T*<X1; 


=LEFT* 


tTEXT«Xn,LEN<" 


fext«xi 


fj-1. 


: GOTO 


340 


420 


IF ASCCA*>= 


=162 THEN fl*= 


CHR*< 3 


£) 


425 


REM CREATE 


A LINE 


OF TE 


XT BY 


CON- 




CATENATING IND 


IVIDURL LETTERS 


438 


TEXT*<X1 >=TEXT*OU 


j+fi* 






448 


GOTO 340 










445 


REM END OF 


TEXT— S 


RVES 


DflTfi 




456 


X1=X1+I:IF 


X1=PL+1 


THEh 


i PRINT 


":*:*:+:** 


:* + *:++*#*:+:* " ; GOTO 498 








468 


IF UD*="Y" 


AND <U* 


= H fl „ 


OR U*= 


ii T il '; ~T 
1 .' ■ 


HEN 328 










478 


IF UD*="Y" 


AND X=8 


THEh 


160 




488 


GOTO 320 










498 


FOR 1=1 TO 


XI 








508 


PRINTS2,TEXTS< I) 








518 


NEXT I 










528 


CL0SE1:CL0SE2 








538 


END 










548 


IF RSC<R*> 


>64 AND 


rl -r u ■-- it-*- v* ■-- I 7 -t 


THEN fi 


*=CHR*C SSCC fl* >+ 1 28 >: RETURN 






558 


IF RSC<A*> 


>192 AND 


HbC< 


A*X£1 


9 THEN 


A*=CHR*< ASC< R* 


:j-128> 








568 


RETURN 











18 REM *** PRINT ROUTINE FOR H? 


:iom 


88 IP 


PRINTER *** 






28 PR I NT "L" 






38 DIM B*< 188 > 






48 INPUT-FILE NRME-jFlLE* 






58 POKE 59468,14 






60 1 = 1 






78 OPEN 1,1, 8, FILE* 






88 Bt= n " 






98 GET#1,A* 






108 PRINTA*; 






110 IF ST>6 THEN 180 






128 IF ASCCfl*>=13 THEN 158 






138 B*=B*+fl* 






146 GOTO 98 






158 B*< I )=B* 






168 1=1+1 






178 GOTO80 






188 CLOSE 1 






198 OPEN 4,4:CMD4:PRINTCHR*<8> 


PR I 


NTCHR 


*<11 >:PRINTCHR*<14:> 






£08 FOR R=l TO I 






210 PRINT B*<R> 






226 NEXT A 






230 PRIHT#4:CL0SE4 






248 END 
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MOR€ SOFTUJARC TOOLS __-, 
FROM H€S FOR VOUR 8K PET 

by Joy Bolakrishnon 



HESEDIT : change 22 lines of data by merely over- 
typing and insert, delete, and even duplicate lines- 
all at once! Scroll forwards or backwards by any 
amount — it's also easy to edit files bigger than your 
memory. Why code a program to maintain each file? 
Use HESEDIT for mailing lists, notes or prepare 
assembler source for HESBAL. All keys repeat. FAST- 
written in BASIC and assembler. ONLY $12.95 

6502 ASSEMBLER PACKAGE: HESBAL, a full-featured 
assembler with over 1200 bytes free (8K) & HESEDIT; 
for less than $25! HESBAL is THE best 8K assembler 
available: it uses only 1 tape or disk, yet includes 
variable symbol sizes, pseudo-opcodes, over 25 error 
messages and more than 70 pages of documentation. 

ONLY $23.95 

HESLISTER: formats multi-statement line BASIC 
programs, shows logic structure (disk reqd.) $9.95 

GUARANTEED to load or replaced FREE 
Order from your dealer or direct from us 
Plus $1.50 Postage (our doc. is heavy!) 
Disk - Add $3 . Calif Res. - 6% Sales Tax 
Human engineered Software 
3748 ingleujood Blvd. Room 11 
Los Angeles, California 90066 



24 HOURS - (213) 398-7259 

Dealer inquiries welcomed 



NIKROM TECHNICAL PRODUCTS PRESENTS 

A DIAGNOSTIC PACKAGE FOR THE APPLE II 

AND APPLE 11+ COMPUTER. 

"THE BRAIN SURGEON" 

All major computer systems are checked for functional hardware analysis on a 
regular basis for logical as well as some practical reasons. Finding what is exactly 
wrong can account for most of the money consuming down-time. 

Apple Computer Co. has provided you with the best equipment available to date. 
The Diagnostic's Package was designed to check every major area of your computer, 
detect errors, and report any malfunctions. The Brain Surgeon will put your system 
through exhaustive, thorough procedures, testing and reporting all findings. 

The Tests Include: 

• MOTHERBOARD HOM TEST FOR BOTH APPLE II AND APPLE II + 

• APPLESOFT CARD TEST • INTEGER CARD TEST • MEMORY RAM TEST 

• DISK DRIVE ANALYSIS • MONITOR ALIGNMENT 

• DC HAYES MICRODOOEM II TEST 

System Diagnosis is an invaluable aid to your program library even if your system 

is working fine. Hours have been wasted trying to track down a "program bug" when 

actually hardware could be the blame! 

T/ie Brain Surgeon allows you to be confident of your system. This can be critical 
when file handling, sorts or backups are involved. You must depend on your 
computer during all these critical times. Running The Brain Surgeon prior to these 
important functions helps to insure that your system is 
operating at peak performance. 

The Brain Surgeon is easy to use and supplied on diskette 
with complete documentation. 

PRICE: 145.00 
REQUIRES: 46K 

APPLESOFT In ROM, 1 Disk Drive 
DOS 3.2 or 3.3 

Nikrom Technical Products 

iS PROSPECT STREET • LEOMINSTER, MA 014S3 

Order Toll-Free Anytime 

Master Charge 8, VISA users call: 1-80M35-2246 

Kansas Residents call: 1400-362-2421 




M 



M 



M 



M 



END FRVSTRA T/ONU 



FROM CASSETTE FAILURES 
PERRY PERIPHERALS HAS 
THE HDE SOLUTION 
OMNIDISK SYSTEMS (5" and 8") 

ACCLAIMED HDE SOFTWARE 

• Assembler, Dynamic Debugging Tool, 
Text Output Processor, Comprehensive 
Memory Test 

• HDE DISK BASIC NOW AVAILABLE 
PERRY PERIPHERALS S-100 PACKAGE 

Adds Omnidisk (5") to 
Your KIM/S-100 System 

• Construction Manual— No Parts 

• FODS & TED Diskette 

• $20. +$2. postage & handling. (NY residents 

add 7% tax) (specify for 1 or 2 drive system) 

Place your order with: 
PERRY PERIPHERALS 

P.O. Box 924 
Miller Place, N.Y. 1 1764 
(516)744-6462 

Your Full-Line HDE Distributor/Exporter 





The Most Powerful Disk-Based 
Macro Assembler/Text Editor 
Available at ANY Price 



Now includes the Simplified Text Processor (STP) 

For 32K PET, disk 48K APPLE II 

3.0 or 4.0 ROMS or —OR— or APPLE II + 
8032 (specify) and DISK II 

MAE FEATURES 

— Control Files for Assembling Multiple named source files 
from disk 

— Sorted Symbol table — up to 31 chars./label 

— 27 Commands, 26 Pseudo-ops, 39 Error Codes 

— Macros, Conditional Assembly, and a new feature we developed 
called Interactive Assembly 

— Relocatable Object Code 

— String search and replace, move, copy, automatic line 
numbering, etc. 

STP FEATURES 

— 17 text processing macros 

— Right and left justification 

— Variable page lengths and widths 

— Document size limited only by disk capacity 

— Software lower case provision for APPLE II without lower 
case modification 

ALSO INCLUDED 

— Relocating Loader 

— Sweet 16 macro library for APPLE and PET 

— Machine Language macro library 

— Sample files for Assembly and text processing 

— Separate manuals for both APPLE and PET 

PRICE 

— MAE, STP, Relocating Loader, Library files, 50 page manual, 
diskette — $169.95 

SEND FOR FREE DETAILED SPEC SHEET 

EASTERN HOUSE SOFTWARE 

3239 LINDA DRIVE 
WINSTON-SALEM, N. C. 27106 



(919) 924-2889 



(919) 748-8446 
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Tiny Pilot Follow Up 



MICRO has presented Tiny Pilot 
for the SYM, KIM and AIM in 
previous articles.* Here is 
additional information about 
"Tiny" and a programming 
example. 



Nicholas J. Vrtis 
5863 Pinetree S.E. 
Kentwood, Michigan 49508 



A — first half of the addition problem 

B — second half of the problem 

D — a work variable 

W — count of wrong answers 

R — count of right answers 

X — alternates between and 1 



Labels used are: 

Q — start of the addition question 
O — jumped to when answer is correct 
D — program wrap-up |done| 
N — start of subroutine to get next 

numbers for next problem 
B — jumped to, to add to B instead of A 

in subroutine 



The next statement which needs 
explanation is C:$ = X. This is another 
way of matching a variable value. Set- 
ting $ equal to X puts the character 
string for X into the answer area, so 
that the M:l that follows will see if X 
was equal to 1 . The purpose of X in the 
program is to add variety to the process. 
If it is equal to 1, the subroutine N adds 
2 to variable A and sets X = for the 
next time. When X is equal to 0, B gets 
1 added to it. Also, if X is equal to 1 and 
the answer is correct, the program 
types out "VERY GOOD!" 



Here is the sample Tiny Pilot program a 
number of you have asked for since the 
original Tiny Pilot in the September 
1979 issue of MICRO (16:41). It is not 
necessarily an example of "good" Pilot 
programming (unless you consider any- 
thing that works "good"]. It was writ- 
ten for two reasons. First, as a simple, 
practical example of what to do with 
Pilot. Second, as a demonstration of 
most of the features of Tiny Pilot. Since 
it uses most of the statement types and 
features, it is also a good test program. 



The purpose of the demo program is 
a simple math drill. It asks the user for 
his name and then proceeds to ask addi- 
tion problems until he types in QUIT. 
At that point, it tells him how many 
answers he got right, and how many 
were incorrect. Sounds simple enough, 
doesn't it? It really is! I added some 
things mainly to demonstrate some 
statement types. Variables used are: 



Note that there are no spaces in the 
compute statements. The "?:" state- 
ment gets the operator's name so that it 
can be output in the T: statements with 
the $? to personalize the whole thing. 
Further down in the program, the A: 
accepts the operator's answer to the 
addition problem as a character string. 
The M:QU statement looks for any 
answer starting with these two letters. 
This is done to avoid problems with 
spelling. If you wanted to get really 
fancy, you could put M:QU,I QU. This 
would match on either "QUIT" or "I 
QUIT." If the match statement is true, 
the program jumps to label D (for 
done), and wraps up. If this isn't the 
case, the TP program computes the cor- 
rect answer and puts it into variable D. 
The following Match statement com- 
pares the value in variable D with the 
string just entered. Note that leading 
zeros are ignored from D, but not from 
the input string. Thus, the answer 02 
would not match with the value 2. This 
is not much of a problem, since very 
few people put leading zeros in their 
answers. 



Finally, here are a couple of com- 
ments about the published version of 
the program. MICRO did a very faithful 
job of reassembling my source. The 
only problem I have heard about is that 
the at sign (@j did not print in the com- 
ments. This is the character used to 
start the execution of the Tiny Pilot 
program. More than one person has got- 
ten a little confused about this. The 
16-bit checksum for the program is 
$6278. This was found by keying in the 
published code, and it agrees with my 



* "Tiny Pilot: An Educational 
Language for the 6502" by Nick Vrtis 
(16:41). 

"Tiny Pilot for KIM" by Bob Applegate 
(21:41). 

"Tiny Pilot for the AIM" by Larry 
Kollar and Carl Gutekunst (28:59). 
"Tiny Pilot Complemental (Co-Pilot)" 
by Robert Schultz (29:32). 
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version. I know of one bug in the ver- 
sion published; it has tado with enter- 
ing a line longer than 126 characters. 
The comments say you can go up to 
127, but don't believe everything you 
read. The problem is that the end-of- 
line character never gets put into the 
Tiny Pilot program. This, in turn, 
eventually causes the subroutine 
FWD1 to branch to SETBGN, which, in 
turn, resets CURAD back to the begin- 
ning of the Tiny Pilot address space. 
The easiest solution is to limit your 
lines to less than 126 characters. If you 
want to patch and/ or re-assemble, the 
solution is to add a BNE $243 at loca- 
tion $24D. This will force an end-of- 
line to be inserted into location 127 and 
should keep everybody happy. Note 
that I have not bothered to try this. My 
CRT is only 80 characters wide, so I 
never run into the problem. [The only 
other problem I have heard about is 
that people with older KIMs don't have 
the rotate instructions.) 



Remember that after the S: state- 
ment is entered, you end up back in the 
editor, with the current address point- 
ing to the beginning of the Tiny Pilot 
program, so anything you type in will 
overlay the program. There is no easy 
way to find the end of your program in 
order to save it on tape. You must 
display the whole program, stop the 
program and look at CURAD. 



R:TINY PILOT MATH DRILL 
PROGRAM 

R:CHANGE THE FOLLOWING 
TO CHANGE THE SERIES 

C:A=5 

C:B = A + 3 

T:HI THERE, PLEASE ENTER 
YOUR NAME 

?: 

T:WELCOME TO THE MATH 
DRILL $?, I HOPE YOU DO 
WELL 

T:WHEN YOU HAVE HAD 
ENOUGH, ENTER QUIT 
INSTEAD OF THE 

TANSWER, AND I WILL TELL 
YOU YOUR SCORE. 

R:HERE IS THE START OF 
EACH QUESTION 

*QT: 



T:HOW MUCH IS $A + $B 

A: 

M:QU 

YJ:D 

C:D = A+B 

M:$D 

YJ:0 

R:HERE THE ANSWER IS 
WRONG 

T:l AM SORRY, THE ANSWER 
IS$D 

C:W = W+1 

U:N 

J:Q 

R:HERE, THE ANWER IS 
CORRECT 

*OT:THAT IS CORRECT $? 

C:$ = X 

M:1 

YT:VERY GOOD ! 

C:R = R + 1 

U:N 

J:Q 

*DR:HE ASKED TO QUIT, TELL 
THE SCORE 

T: 

C:D = R + W 

T:l ASKED YOU A TOTAL OF 
$D QUESTIONS 

T.YOU ANSWERED $R 
CORRECTLY, AND $W 
INCORRECTLY. 

T.I HOPE YOU ENJOYED 
YOURSELF $?, I SURE DID. 
THANK YOU. 

S: 

R:SUBROUTINE TO GET THE 
NEXT SET OF NUMBERS 

*NC:$ = X 

M:1 

R:X GIVES VARIETY BY 
ALTERNATING WHICH GETS 
ADDED TO 

YJ:B 

C:A = A + 2 

C:X=1 

E: 

*BC:B = B + 1 

C:X=0 

E: 

JMCftO 



Microbes 



Mike Rowe 
Microbes 
P.O. Box 6502 
Chelmsford, MA 01824 

Len Gieen of Haifa, Israel informed 
us of some one-byte errors. 

In SYM Bridge Trainer (32:44) loca- 
tion 02FB must be changed to C9ED 
CMP#$ED or the program will halt 
after every North bid, including 
"Pass." 

In SYM-ple Sym-on (34:18) location 
02AF should be A200 PLAYON 
LDX#$00, otherwise the program goes 
bananas every time you run it. 

David Lubar, of Edison, New Jersey, 
spotted this microbe in bis article 
"UnwrApple" (34:11): 

At the end of the listing, in the sec- 
tion following the comment ;CALL 
FROM BASIC GOES HERE, only half 
the output hook is established. The 
lines LDA #START, STA CSWL, 
should be followed by LDA /START, 
STA CSWH. 



r 



MUSICAL COMPUTER I AND I! 

Learn How to Read Music! 

Written by an M.A. educator with over 
20 years of music experience. This 
two-program cassette provides an 
alternative to music education. 

• Treble & Bass Note Reading 

• Telling Time 

• Notes and Rests 

• Sharps and Flats 

• Signs and Symbols 

• Tempo Definitions 

• CHALLENGING Practice Testing 
Opportunities 

$34.95 + $1 for postage and handling 

Check or Money Order Please 

(Ml residents add 4% sales tax) 

SPECIAL one-time introductory sample 
price available to dealers only. Please 
request on your dealer letterhead. 

Check: □ Apple II 32K 

□ TRS-80 Level II 16K 

□ ATARI 800 32K 

Name: 

Address: 

COMPUTER 
APPLICATIONS P R ?J?°* f m 5 

_ . . . Birmingham 

TOMORROW mi 48012 
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serendipity 

.xMath Tools 
ifor your 

|Vpple IF 







TJVTER-STAT™ offers you a full range of interactive statistical 
analysis techniques, from averages and medians to binomial 
and poisson distributions, correlation coefficients and one- and 
two-way analysis of variance. $169. 

ADVANCED MATH ROUTINES is the mathematical tool kit 
for common, yet complex numerical problems. Routines include: 
linear regression, matrix operations, numerical calculus, 
differential equations and data set recall for iterative calculations. 
$169. 

Thoroughly tested, well documented and easy to master, each 
package includes a 30+ page self-teaching manual. 
Serendipity's complete line of software solutions for business, 
education and professional applications are available at your 
local Computerland or Apple dealer. 
For a free brochure, or to order direct contact Serendipity 
Systems, 225 Elmira Road, Ithaca, NY 14850. 
Phone 607-277-4889. Visa and MC accepted. 

'"Apple Computer 



SERENDIPITY SYSTEMS 



v* 



" me, ^pm j^Wbit - 



Your CHisVi. 



..Is Cfy Commanb 
It's oil in. a 
24 -pin. Vprn. 
at CHS !l 




"Pel- Owners 
Qrowted 3 CUi-ihcs ; 

i . T<x&r Cassette Load 
2- Auto-repaat onavi Ksqs 
S.flQCrtjory tresi and 
12 OoM/narads. 



ROM and MANUAL — $49.95 

Specify 3.0 or 4.0 Basic (Works with or without toolkit) 



Eastern House Software 

3239 Linda Drive 
Winston-Salem, N. C. 27106 



(919)924-2889 
(919) 748-8446 



Powerful & Efficient 
Apple Software 



SDS Guarantees It. 



You depend on good software to save you time and to have your com- 
puter help you do a job more efficiently. Our software is designed to do 
just that. We are one of the oldest companies supplying software for the 
Apple If, and one of the very few that offers an unconditional guarantee 
of satisfaction or your money back! Here are a few that you'll want to add to 
yourllbrcny: 

Super Terminal Software 

ASCII EXPRESS II. by Bill Blue. The most complete communications package 
available for the Apple II. Designed for the most efficient transfer of data to 
or from practically any online computer. Fully supports upper/lower case. 
Including characters normally unavailable: underscore, rubout. break, and 
most others. Keyboard macros allow you to define dual keystrokes as 
entire strings for fast sign-ons, sigrv-offs. and system commands A 20K data 
buffer allows for large files, and a convenient line editor means easy 
editing before and after transfer, Buffer can be output to printer, disk, or 
viewed at any time. Supports Mlcromodem II " and most other communica- 
tion devices. 

Price: $64.95 on Disk. 

And for the Z80 Apple. . . 

Z-TERM. by Bill Blue: A flexible communications package for the Apple II 
equipped with Z80 Softcard' and the CP/M' environment. Allows file 
transfers to or from all types of dial-In systems Fully supports rvllcromodem 
H and most other communication devices, as well as 80 column display 
boards and external termlnoJsl Utilizes standard CP/M sequential text 
files, with up to a 40X internal buffer (using additional RAM or Language 
Card.) Supports multiple modes of data transfer and Includes keyboard 
macros, autodial (with Mlcromodem II), and upper/lower case. 

Price $99.95 on 16 sector diskette. 

Also available... 

APPU-OOC. by Roger Wagner A set of several utilities to speed up software 
development and customization. Vardoc makes a list of all the variables 
In a program and every line on which they occur. Also allows you to create 
a list of descriptors of what each one does. Llnedoc makes a simitar list for 
each line/subroutine called by a GOTO. GOSUB. etc. Condoc is similar 
but documents all numeric constants - great for scientific & business 
usesl Replace Is a powerful replacement editor which makes changing 
any occurence of a variable or group of statements a breeze! 

Price 534,95. Disk. 

THE CORRESPONDENT, by Roger Wagner An extremely versatile program! 
Designed primarily for writing letters and other documents in a very visual 
way. The Apple screen acts as a "window" onto a 40-80 column page. 
4-directional scrolling lets you see any part of the page just as it will be 
printed. Editor functions include full upper/lower case & control chars., 
block move/copy, split screen option, even math functlonsl Additional 
utilities & uses include printing form letters, a free-form database, putting 
bi-directional scrolling in your own programs, single-disk copy program, 
DOS remove tor greater sforoge on diskettes, and more! 

Price: $44.95 on Disk. 



•Apple » h a registered Irodemo* or Apple Compute Co. 
•Mcionxx)Bmlll»ai»olirer^fiacWnoTkofHay«Miaa»n<xJtetPrc*^ mc 
*Z80 Softcard Is a registered trademark of Mtacsoft Consumer Products. Inc. 
•CP/M » a registered trademark of Digital Researcn. he 

All programs require 48K and Applesoft In ROM or language card. Specify 
DOS 3.2 or 3.3. California residents odd 6% to all prices. 

See these and other S.D.S. products at your local dealer, or for more Infor- 
mation, write or call: 



soutnuuesteRn data svstems 

PO Box 582-C2 . Santee, CA 92071 .(714)562-3670 
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THE PERFORMANCE SLICE 



u eoG £B s i\ \ / Re cbivabl 



sion- 






■-■•"VOICen a „ "' "" 01 



^- LJH*»>tained 

ACCOUNTS ' — - 

PAYABLE COMING SOON! 

Complete your accounting system with the si 






• Complete your accounting system with the soon to be released 
A/P package, featuring automatic application of credit and debit 
memos, open or closed item listing, full invoice aging, and 
multiple reports that provide a complete transaction review. 

* Your bookkeeping doesn't have to be a bulky, complicated proem. The 
SBCS Accounting Syttam is designed for flexibility and high performance 
with i cost effectiveness sun to benefit your businessl 

YOU NEED EXPERIENCE WORKING FOR YOU 
* Package* available at your local Apple dealer. 



SMALL BUSIfAIESS COMPUTER SYSTEMS 

41 40 G rue nwood, Lincoln. NEG85 04 (402)467-1878 



r^DISKl 



A fantastic new game disk for OSI-C4P's 
running with DOS 3.2. Most of the 
games on this disk are single player such 
as a multiple level Othello game, 
Cavern Chase, and more. Other games 
are designed for single or multiple 
players such as Tank, and Crystalize. 
Over seven games and variations in all. 
(Note that many of these games are in 
machine code for enhanced play-ability 
and speed.] 



To oidei send $26 to: 

Simulations 
Programming 



Rt. 2 Box 98 

Burton, WA 

98013 



Singing the file transfer blues? Ther 



Get B. I.T.S.! 



Use your Micromodem K , 1 A I 2 Card. or 
Apple Gomm Card 3 to: 

Send data files, BASIC programs, 
even machine code 

to most computers over phone lines. 

Copy anything you eee 

into a 31K buffer then save it on disk 
and/or print it under your complete control. 

Many more features! 

See it at your favorite computer 
store today. 



Trademarks held by: 

1- Hayes Microcomputer Products Inc. 

2 - S S M 

3- Apple Computer Inc. 

B. I.T.S. is a trademark of: 

MlcroSoftware Systems 

7937 Jones Branch Dr. Suite 40D 

McLean. Virginia 22102 

(703) 385-2944 




For your AIM 65 

MI-Jl User applications connector 
- Convenient features = 



MiC and EAR jacks for cassette recorders 
RS232C or 20mAmp serial ports 
1 6 I/O lines + 4 contro/ lines —VIA signals 
Solder pads for remote lines 



MICRO INTERFACES. INC. © M. - Jl 




MICRO INTERFACES, Inc. 

RO. Sox I4520 
Minneapolis, MN 554I4 

(SI2-426-4603) 



Assembled, ttstod 29.95 
(90-doy warranty) 
Bart PC board 1 3.95 



(J|i 



Ask about our Microcomputer DC Control System (MCS) 
with ROM-based software for real-time control with BASIC 
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Cursor Control 
fortheCIP 



V 



This ViK utility provides the C1P 
with some new abilities such as 
editing, user-selectable 
windows, one-key screen clear, 
and a cassette "view" mode. 

Kerry V. Lourash 
1220 North Dennis 
Decatur, Illinois 62522 

Lack of an editing capability is perhaps 
the most serious shortcoming of the 
C1P and Superboard. OSI and Micro- 
soft have provided a video routine 
ideally suited for a teletype, but lousy 
for a TV screen. I felt this situation was 
unbearable and designed my own ver- 
sion of what a video routine should be. 

The Cursor Control program 
replaces OSI's cursor with a dynamic 
super-cursor that can be moved 
anywhere on the screen. The view 
through the TV screen is dramatically 
improved with the addition of two 
user-selectable windows and a 'view' 
mode that lets you look at programs on 
tape without loading them into 
memory. If you don't like what you 
see, a one-key screen clear whisks it 
away. There's even an edit command 
for redecorating any line on the screen, 
and the space-gobbling 'OK' is banish- 
ed forever. 

Cursor Movement Commands 

CTRL < Move cursor back one 
space. 

CTRL > Move cursor forward one 
space. 

CTRL U Move cursor up one line. 

CTRL D Move cursor down one 
line. 

ESC Move cursor from one 

window to the other. 

Edit Commands 

CTRL E Edit. Store character in 
memory. 



SHIFT O Erase last character, move 
cursor back one space. 

Other Commands 

RUBOUT Clear window cursor is in. 

CTRL V Display contents of tape 
without loading into 
memory. 



Using the Cursor Control Program 

You'll notice two changes to the 
OSI format immediately. First, the 
two-line 'OK' message has been replaced 
by a one-character white block 
(graphics character 161). At times, this 
white block will appear at the end of an 
error message or other line. If you wish 
to save screen space, you may start typ- 
ing without hitting 'RETURN'. The 
second change is in the cursor. It's now 
a half-tone block [graphics character 
187). 

Check the cursor movement com- 
mands by pressing the keys for each of 
the first four commands. Holding the 
keys down will move the cursor at a 
constant rate. If you should accidental- 
ly move the cursor past the top or bot- 
tom of the screen, simply move the 
cursor in the opposite direction until it 
reappears or hit the 'ESC or 
'RUBOUT' key. 



Now for the edit commands. 'CTRL 
E' moves the cursor forward like 
'CTRL>', but it also enters characters 
into memory as the cursor passes over 
them. It's just as if you had typed the 
character in yourself. To edit a line of 
BASIC, first list the line. Use the cursor 
movement commands to put the cursor 
at the start of the line number. Run the 
cursor over the line with 'CTRL E' un- 
til you reach the part you want to 
change. You now have four options: to 
change, delete, or insert characters, or 
to combine two lines. 



To change the line, simply type 
over the characters you wish to change, 
'CTRL E' to the end of the line, and hit 
'RETURN' . To delete characters, move 
the cursor over them with the 
'CTRL>' instead of 'CTRL E'. To in- 
sert, 'CTRL E' to the point where you 
want the insertion and use 'CTRL< ' to 
move backward the number of spaces 
your insertion will occupy. Type your 
insertion and 'CTRL E' to the end of 
the line. (I usually 'CTRL<' a little 
further than I think I have to go, type 
the insertion, and then 'CTRL >' to the 
point where I want to use the 'CTRL E' . 
This saves counting spaces.) Don't 
worry about the characters you type 
over when doing an insertion; they're 
already stored in memory and you're 
just changing the video display. If it's 
necessary to combine two lines, use 
'CTRL E' to input part or all of the first 
line, then use the cursor movement 
keys to move to the second line. 'CTRL 
E' over what you want in the second 
line. 

A word of caution — you can change 
a line number by typing a different 
number before editing the rest of the 
line. The original line will still be in 
memory, however, and must be 
deleted. I usually 'CTRL E' over the 
original line number and hit 
'RETURN'. This deletes the line. Then 
I go back to the line number, change it, 
and 'CTRL E' over the rest of the line. 

Notice that when you edit lines and 
hit 'RETURN', the cursor moves to the 
start of the next line and there is no 
scroll. To get back 'home', hit the 
'ESC key twice, or the 'RUBOUT' key 
once. 'ESC switches windows and 
homes the cursor (puts it at the start of 
the bottom line of the window). 
'RUBOUT' clears the current window 
and homes the cursor. 

The 'SHIFT O' command erases the 
letter to the left of the cursor from the 
screen and from memory, and moves 
the cursor back one space. Another cau- 
tion here — if you haven't entered the 
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character from the keyboard or 'CTRL 
E', don't try to erase it with 'SHIFT O'. 

Finally, there is the 'CTRL V com- 
mand. 'CTRL V lets you see what is on 
a tape without actually loading it into 
memory. A tank character (255) is 
printed to the left of each line to in- 
dicate the view mode. You may want to 
change an address in the view routine 
|$D384 in line 89] if the character isn't 
visible. 

Ed. Note: to move the tank one 
space to the right, change location 
$1E9E from 84 to 85 and $1FAE from 
1A to 19. Changing $1FAE moves the 
cursor home column to prevent the 
tank from being printed over the input 
line. 

Exit the view mode by typing a 
space, just as you would when in the 
LOAD mode. 

Using Windows 

Windows are reserved areas of the 
screen that act like separate, self- 
contained displays. The Cursor Con- 
trol program has two scrolling win- 
dows, and a third, non-scrolling 
window for graphics can be created by 
setting the scrolling windows to oc- 
cupy less than the whole screen. The 
screen can be divided horizontally in 
1-line increments. 

You can set the bottom window to 
be 4 lines high and do all your im- 
mediate mode commands such as 
PEEK, LIST LOAD, or calculations and 
then use the large top window to edit 
BASIC lines. You can have two win- 
dows of equal size and run two pro- 
grams alternately. Directions for a pro- 
gram can be displayed in one window 
while the program is run in the other, 
or graphics can be done in the non- 
scrolling window, and scores or input 
displayed in the scrolling windows. 
Unfortunately, I wasn't able to come 
up with an easy way to set the win- 
dows. I was determined to keep the 
Cursor Control down to V£K of 
memory and it was like trying to close 
an overstuffed suitcase — some things 
had to be left out. 

Selecting Windows 

Ten zero-page locations are used by 
the Cursor Control to store the current 
cursor location and the start and end 
addresses of two scrolling windows (see 
figure 1 ) . To change the size of the win- 
dows, the values stored in these loca- 
tions must be changed. Look at figure 
2. The video display lines are 
numbered 1 to 32, with hex addresses 



FIGURE 


1 - ZERO PAGE USE 






LOCATION DESCRIPTION 


CONTENTS 


(DECIMAL) 


(DEC) 


(HEX) 


224 


CURSOR POSITION 


133 


$85 


225 




211 


$D3 


226 


START, TOP WINDOW 


128 


$80 


227 




208 


$D0 


228 


END, TOP WINDOW 


128 


$80 


229 




211 


$D3 


230 


START, BOT WINDOW 


128 


$80 


231 




208 


$D0 


232 


END, BOT WINDOW 


128 


$80 


233 




211 


$D3 



f*" 



FIGURE 2 


- WINDOW SETTINGS 


POKES 


LINE (HEX) 


0, 208 


1 $DO00 


32 


, 208 


2 $D020 


64 


, 208 


3 $D040 


96 


, 208 


4 $D060 


128 


, 208 


5 $D080 (TOP LINE) 


160 


, 208 


6 $D0A0 


192, 


, 208 


7 $D0C0 


224, 


208 


8 $D0E0 


0, 


, 209 


9 $D100 


32 , 


, 209 


10 $D120 


64, 


209 


11 $D140 


96, 


209 


12 $D160 


128, 


209 


13 $D180 


160 


209 


14 $D1A0 


192 


, 209 


15 $D1C0 


224 


, 209 


16 $D1E0 





, 210 


17 $D200 


32 


, 210 


18 $D220 


64 


, 210 


19 $D240 


96 


, 210 


20 $D260 


128, 


, 210 


21 $D280 


160, 


210 


22 $D2A0 


192, 


210 


23 $D2C0 


224, 


210 


24 $D2E0 





211 


25 $D300 


32 


, 211 


26 $D320 


64 


r 211 


27 $D340 


96 


, 211 


28 $D360 


128 


, 211 


29 $D380 (BOTTOM) 


160 


, 211 


30 $D3A0 


192 


, 211 


31 $D3C0 


224 


, 211 


32 $D3E0 



Ki- 
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0800 




; CURSOR CONTROL FOR C1P 




0800 




;BY LOURASH 




0800 




;MICRO 


#36 






1E00 






ORG 


$1E00 




1E00 






OBJ 


$0800 




1EO0 




CURSOR 


EPZ 


$E0 




1E00 




START 


EPZ 


$E2 




1E00 




END 


EPZ 


$E4 




1E00 




; 








1EO0 


2C0302 


INPUT 


BIT 


$203 


; CHECK LOAD FLAG 


1E03 


1003 




BPL 


IN 




1E05 


4CBFFF 




JMP 


$FFBF 




1E08 


8A 


IN 


TXA 






1E09 


48 




PHA 






1E0A 


98 




TYA 






1E0B 


48 




PHA 






1E0C 


2000FD 




JSR 


$FD00 


;GET CHARACTER 


1E0F 
1E0F 


4C121E 


PATCH 


JMP 


* + 3 




1E12 
IE12 




1 








C9EC 


BACK 


CMP 


#$EC 


;CTRL < ? 


1E14 


D009 




BNE 


UP 




1E16 


201F1F 




JSR 


PRINT 




1E19 


20B01F 




JSR 


REVRSE 


; CURSOR - 1 


1E1C 


4C4D1E 




JMP 


FO 




1E1F 




t 








1E1F 


C915 


UP 


CMP 


#$15 


;CTRL U ? 


1E21 


D010 




BNE 


DOWN 




1E23 


201F1F 




JSR 


PRINT 




1E26 


A5E0 




LDA 


CURSOR 


,-CURSOR - 20 


1E28 


38 




SEC 






1E29 


E920 




SBC 


#$20 




1E2B 


85E0 




STA 


CURSOR 




1E2D 


B01E 




BCS 


FO 




1E2F 


C6E1 




DEC 


CURSOR+1 




1E31 


D01A 




BNE 


FO 




1E33 




; 








1E33 


C904 


DOWN 


CMP 


#$04 


;CTRL D ? 


1E35 


D009 




BNE 


FORWD 




1E37 


201F1F 




JSR 


PRINT 




1E3A 


207D1F 




JSR 


FEED 


;CURSOR + 20 


1E3D 


4C4D1E 




JMP 


FO 




1E40 




/ 








1E40 


C9EE 


FORWD 


CMP 


#$EE 


;CTRL > ? 


1E42 


D011 




BNE 


EDIT 




1E44 


201F1F 




JSR 


PRINT 




1E47 


E6E0 




INC 


CURSOR 


,-CURSOR + 1 


1E49 


D002 




BNE 


FO 




1E4B 


E6E1 




INC 


CURSOR+1 




1E4D 


20141F 


FO 


JSR 


PCURSR 




1E50 


A901 




LDA 


#$01 


;NON-PRINT CHAR 


1E52 


4CB7FD 


Fl • 


JMP 


$FDB7 


;EXIT 


1E55 




; 








1E55 


C905 


EDIT 


CMP 


#$05 


;CTRL E ? 


1E57 


D003 




BNE 


ESCAPE 




1E59 


AD0102 




LDA 


$201 


;CHAR INTO 201 


1E5C 




; 








1E5C 


C91B 


ESCAPE 


CMP 


#$1B 


;ESC ? 


1E5E 


D020 




BNE 


RUBOUT 




1E60 


A203 




LDX 


#$03 


; SWITCH WINDOW 


1E62 


B5E2 


ES 


LDA 


START, X 


; LOCATIONS 


1E64 


48 




PHA 






1E65 


B5E6 




LDA 


START+4.X 




1E67 


95E2 




STA 


START, X 




1E69 


68 




PLA 






1E6A 


95E6 




STA 


START+4,X 




1E6C 


CA 




DEX 






1E6D 


10F3 




BPL 


ES 




1E6F 


201F1F 




JSR 


PRINT 




1E72 


A5E5 


HOME 


LDA 


END+1 


;HOME CURSOR 


1E74 


85E1 




STA 


CURSOR+1 




1E76 


A5E4 




LDA 


END 




1E78 


20AA1F 




JSR 


RETURN+2 




1E7B 


85E0 




STA 


CURSOR 




1E7D 


4C4D1E 




JMP 


FO 




1E80 




; 








1E80 


C97F 


RUBOUT 


CMP 


#$7F 


; RUBOUT ? 


1E82 


D009 




BNE 


VIEW 




1E84 


20891F 




JSR 


CLEAR 


,-CLEAR WINDOW 


1E87 


20731F 




JSR 


LINE 


; CLEAR HOME LINE 


1E8A 


4C721E 




JMP 


HOME 




1E8D 




; 








1E8D 


C916 


VIEW 


CMP 


#$16 


;CTRL V ? 


1E8F 


D0C1 




BNE 


Fl 




1E91 


208BFF 




JSR 


$FF8B 


;TURN ON LOAD 



on the right. Not all of the lines are 
displayed on the screen because the 
vertical retrace of the TV blanks out 
some lines. In the Cursor Control, both 
windows are initially set to cover the 
screen from line 5 ($D080) to line 29 
($D380). 

Let's change the windows so that 
the bottom window is 4 lines high and 
the top window covers the rest of the 
screen. Counting up from the bottom 
line (29), we find that the boundary be- 
tween the windows is between line 25 
and 26. We set the end of the top win- 
dow (locations 228, 229) at line 25 and 
the start of the bottom window (loca- 
tions 230, 231) at line 26. The two 
numbers to POKE are listed at the left 
in figure 2. We type: 

POKE 228,0:POKE 229,211: 
POKE 230,32:POKE 231,211 



Maybe we would like two lines at 
the bottom of the screen in order to 
display scores and have the rest of the 
screen free for graphics. In this case, 
the start and end of each window would 
be the same. The cursor line should be 
below the bottom of the screen so that 
we won't waste a line at the bottom. 
Lines 30-28 for both windows: 

POKE 226,96:POKE 227,21 1: 
POKE 228,160:POKE 229,211 

POKE 230,96:POKE 231,211: 
POKE 232,160:POKE 233,211 

To gain extra lines at the bottom (or 
top] of the screen, you can change the 
TABLE in the last line of the program. 
Also, you can change line length or 
position of lines on the screen to 
customize the Cursor Control to your 
particular TV. The SBC #$1A instruc- 
tion in the RETURN subroutine deter- 
mines the starting point of video lines. 
The SBC #2 instruction in the LETTER 
routine controls the end point of the 
lines. If you change the line length 
you'll also have to change the SBC in- 
struction in the REVRSE subroutine. If 
you increase the line length, decrease 
the SBC instruction by the same 
amount, and vice versa. 

People who have video monitors 
without retrace blanking can eliminate 
retrace smear by not setting windows 
on lines smeared by the retrace. Users 
with 600 baud conversions might not 
have to add NULLs when SAVEing if 
they use a small window (4 lines?) 
when LOADing. (This speeds up the 
scroll routine. | 
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Subroutines 

HOME Changes cursor location to 
home position and prints 
cursor. 

PCURSR Saves character at cursor 
address in location $201 and 
prints cursor 'over' the 
character. 

PRINT Prints contents of $201 
(character 'underneath' the 
cursor) at cursor location. 

LOAD Initializes RAM locations 
$207-$20D for use in scroll, 
clear screen routines. 

SCROLL Goes through every byte in 
window and puts the con- 
tents in original location 
+ $20 (one line above). 

Clears home line. 



LINE 
FEED 

CLEAR 

RETURN 

SETUP 



Moves cursor location down 
one line. 

Clears window. 

Puts cursor at start of line. 

Sets Cursor Control patches, 



HIMEM, initializes stack. 
REVRSE Moves cursor back one space. 

How Cursor Control Works 

First, the Cursor Control looks at 
the LOAD flag and jumps to the LOAD 
routine if the flag is set. Otherwise, it 
checks input from the keyboard for 
commands. The cursor movement 
commands change the location of the 
cursor (224,225 or hex $E0,E1) and load 
a non-printing character in the A 
register. This causes BASIC to ignore 
the character and loop back to the start 
of the input routine. 

The 'CTRL E' routine puts the 
character 'underneath' the cursor into 
the A register, so that it's treated as if it 
were a character typed from the 
keyboard. 

The 'ESCAPE' routine switches the 
contents of the window registers and 
homes the cursor in the window thus 
selected. 

The 'RUE-OUT routine clears the 
current window and homes the cursor. 
By the way, if you put the address of 
the CLEAR subroutine in locations 
11,12 you have a USR|X) screen clear. 

The 'VIEW routine bypasses the 
routines that store data in memory and 
prints data from tape on the screen only. 



1E94 


20BAFF 


VI 


JSR 


$FFBA 


; INPUT CHAR 


1E97 


20A51E 




JSR 


OUTPUT 


; PRINT CHAR 


1E9A 


AD0302 




LDA 


$203 


; ' LOAD ' FLAG 


1E9D 


8D84D3 




STA 


$D384 


; PRINT IT 


1EA0 


D0F2 




BNE 


VI 


;FLAG ON? 


1EA2 


4C521E 




JMP 


Fl 


;NO, EXIT. 


1EA5 












1EA5 




• OUTPUT ROUTINE 




1EA5 












1EA5 


8D0202 


OUTPUT STA 


S202 


;TEMP SAVE CHAR 


1EA8 


48 




PHA 






1EA9 


8A 




TXA 






1EAA 


48 




PHA 






1EAB 


98 




TYA 






1EAC 


48 




PHA 






1EAD 


AD0202 




LDA 


$202 


;LOAD CHAR 


1EB0 


F056 




BEQ 


EXIT 


;IF NULL, EXIT 


1EB2 




I 








1EB2 


4CB51E 


PATCH2 JMP 


* + 3 




1EB5 




1 








1EB5 


C90A 


LF 


CMP 


#$0A 


;LINE FEED ? 


1EB7 


F04F 




BEQ 


EXIT 




1EB9 




i 








1EB9 


C90D 


CR 


CMP 


#$0D 


;' RETURN' ? 


1EBB 


D008 




BNE 


ERASE 




1EBD 


A920 




LDA 


#$20 




1EBF 


20221F 




JSR 


PRINT+3 




1EC2 


4CEF1E 




JMP 


LO 




1EC5 




I 








1EC5 


C95F 


ERASE 


CMP 


l$5F 


;SHIFT ? 


1EC7 


D013 




BNE 


LETTER 




1EC9 


C60E 




DEC 


$0E 


.•CHARACTER COUNTER 


1ECB 


A920 




LDA 


#$20 


; ERASE CHARACTER 


1ECD 


8D0102 




STA 


$201 


; UNDER CURSOR 


1ED0 


20221F 




JSR 


PRINT+3 


; ERASE CURSOR 


1ED3 


20B01F 




JSR 


REVRSE 




1ED6 


201B1F 




JSR 


PI 


(PRINT CURSOR 


1ED9 


4C081F 




JMP 


EXIT 




1EDC 




i 








1EDC 


8D0102 


LETTER STA 


$201 




1EDF 


20221F 




JSR 


PRINT+3 




1EE2 


E6E0 




INC 


CURSOR 




1EE4 


A5E0 




LDA 


CURSOR 


; CURSOR AT 


1EE6 


091F 




ORA 


#$1F 


;END OF LINE? 


1EE8 


38 




SEC 






1EE9 


E902 




SBC 


#$02 




1EEB 


C5E0 




CMP 


CURSOR 




1EED 


D016 




BNE 


LE + 3 


:NO. BRANCH 


1EEF 


20A81F 


LO 


JSR 


RETURN 




1EF2 


85E0 




STA 


CURSOR 




1EF4 


C5E4 




CMP 


END 


;IS CURSOR 


1EF6 


A5E1 




LDA 


CURSOR+1 


;ON HOME LINE? 


1EF8 


E5E5 




SBC 


END+1 




1EFA 


B006 




BCS 


LE 


;YES, SCROLL 


1EFC 


207D1F 




JSR 


FEED 


;NO, DOWN ONE LINE 


1EFF 


4C051F 




JMP 


LE+3 




1F02 


20441F 


LE 


JSR 


SCROLL 




1F05 


20141F 




JSR 


PCURSR 




1F08 




1 








1F08 


68 


EXIT 


PLA 






1F09 


A8 




TAY 






1F0A 


68 




PLA 






1F0B 


AA 




TAX 






1F0C 


68 




PLA 






1F0D 


4C6CFF 




JMP 


$FF6C 


;TO NORMAL OUTPUT 


1F10 












1F10 




; SUBROUTINES 




1F10 












1F10 


A9A1 


OK 


LDA 


#$A1 




1F12 


D00E 




BNE 


PRINT+3 




1F14 




1 








1F14 


AOOO 


PCURSR 


LDY 


#$00 




1F16 


B1E0 




LDA 


(CURSOR) ,Y 


;SAVE CHAR 


1F18 


8D0102 




STA 


$201 


;AT CURSOR LOC 


1F1B 


A9BB 


PI 


LDA 


#$BB 




1F1D 


D003 




BNE 


PRINT+3 


; PRINT CURSOR 


1F1F 




; 








1F1F 


AD0102 


PRINT 


LDA 


$201 


;GET CHAR 


1F22 


AOOO 




LDY 


#$00 




1F24 


91E0 




STA 


(CURSOR) ,Y 


/PRINT IT 


1F26 


60 




RTS 






1F27 




t 








1F27 


A9AD 


LOAD 


LDA 


#$AD 


;LDA OP CODE 


1F29 


8D0702 




STA 


$207 




1F2C 


A98D 




LDA 


#$8D 


;STA OP CODE 


1F2E 


8D0A02 




STA 


$20A 





Q 
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V 



1F31 A960 




LDA f$60 


1F33 8DOD02 




STA $20D 


1F36 A5E3 




LDA STAPT+1 


1F38 8D0902 




STA $209 


1F3B 8D0C02 




STA $20C 


1F3E A5E2 




LDA START 


1F40 8DOB02 




STA $20B 


1F43 60 




RTS 


1F44 

1F44 20271F 


SCROLL 


JSR LOAD 


1F47 18 




CLC 


1F48 6920 




ADC #$20 


1F4A 9003 




BCC SO 


1F4C EE0902 




INC $209 


1-F4F 8D0802 


SO 


STA $208 


1F52 A6E4 




LDX END 


1F54 A4E5 




LDY END+1 


1F56 200702 


SI 


JSR $207 


1FS9 EE0802 




INC $208 


1F5C D003 




BNE S2 


1F5E EE0902 




INC $209 


1F61 EE0B02 


S2 


INC $20B 


1F64 D003 




BNE S3 


1F66 EE0CO2 




INC $20C 


1F69 EC0B02 


S3 


CPX $20B 


1F6C D0E8 




BNE SI 


1F6E CC0C02 




CPY $20C 


1F71 D0E3 




BNE SI 


1F73 A020 


LINE 


LDY #$20 


1F75 A920 




LDA #$20 


1F77 91E4 


LI 


STA (END) ,Y 


1F79 88 




DEY 


1F7A DOFB 




BNE LI 


1F7C 60 




RTS 


1F7D 


1 




1F7D A5E0 


FEED 


LDA CURSOR 


1F7F 18 




CLC 


1F80 6920 




ADC |$20 


1F82 85E0 




STA CURSOR 


1F84 9002 




BCC FE 


1F86 E6E1 




INC CURSOR+] 


1F88 60 

1F89 

1F89 20271F 


FE 


RTS 


CLEAR 


JSR LOAD 


1F8C A4E4 




LDY END 


1F8E A6E5 




LDX END+1 


1F90 A920 




LDA #$20 


1F92 200A02 


CL 


JSR $20A 


1F95 EE0B02 




INC $2 OB 


1F98 D003 




BNE CI 


1F9A EEOC02 




INC $20C 


1F9D CC0BO2 


CI 


CPY $20B 


1EA0 DOFO 




BNE CL 


1FA2 EC0C02 




CPX $20C 


1FA5 DOEB 




BNE CL 


1FA7 60 




RTS 



;RTS OP CODE 



1FA8 

1FA8 A5E0 
1FAA 091F 
1FAC 38 
1FAD E91A ' 
1FAF 60 
1FB0 

1FB0 20A81F 
1FB3 C5E0 
1FB5 DOOB 
1FB7 A5E0 
1FB9 38 
1FBA E908 
1FBC 85E0 
1FBE B002 
1FC0 C6E1 
1FC2 C6E0 
1FC4 60 
1FC5 

1FC5 A209 
1FC7 BDF51F 
1FCA 95E0 
1FCC CA 
1FCD 10F8 
1FCF A9O0 
1FD1 8D1802 
1FD.4 8585 
1FD6 A91E 
1FD8 8D1902 
1FDB 8586 



RETURN LDA CURSOR 
ORA #$1F 
SEC 

SBC #$1A 
RTS 

REVRSE JSR RETURN 
CMP CURSOR 
BNE RE 
LDA CURSOR 
SEC 

SBC #$08 
STA CURSOR 
BCS RE 
DEC CURSOR+1 

RE DEC CURSOR 
RTS 



SETUP 



LDX #$09 
LDA TABLE, X 
STA CURSOR, X 
DEX 

BPL SETUP+2 
LDA # INPUT 
STA $218 
STA $85 
LDA /INPUT 
STA $219 
STA $86 



, START + 20 



; SCROLL ONE BYTE 



;LOW BYTE DONE? 

;HIGH BYTE DONE? 

; ERASE HOME LINE 
; BLANK 



CURSOR DOWN 
ONE LINE 
CURSOR +20 



; CLEAR WINDOW 



; BLANK 

; CLEAR ONE BYTE 



;LOW BYTE DONE? 
;HIGH BYTE DONE? 

.-CURSOR TO START OF LINE 



;MOVE BACK 
;ONE SPACE 



[INITIALIZE 



; INPUT VECTOR 
; HIM EM SET 



The 'LETTER' routine prints the 
character that has been input (from 
keyboard or tape) and increments the 
cursor location. If the cursor is not at 
the end of the line the routine prints 
the cursor at the new location and 
exits. If the cursor is at the end of the 
line or 'RETURN' is hit, the cursor is 
reset to the start of the line. Then, if 
the cursor is on the home line, a scroll 
is done and the cursor is printed at 
home. If the cursor is not on the home 
line, the cursor is moved down one line 
and printed. 

Loading the Cursor Control 

All directions are for an 8K 
memory. First, enter the Cursor Con- 
trol into memory using the monitor (if 
you use the OSI Assembler/Editor 
you'll have to assemble the input and 
output routines separately from the 
subroutines, unless you have more 
than 8K of memory] . After the program 
is entered, double check to make sure 
you've done it right. 

Now hit 'BREAK C and set 
memory size to 7600. This initializes 
the BASIC and temporarily protects the 
Cursor Control from being written 
over. Complete cold start then hit 
'BREAK M'. Change location 1 to $C5 
and location 2 to $1F. This points 
warm start to the SETUP routine. Hit 
'BREAK W. This initializes the Cursor 
Control and a white square — the new 
'OK' symbol — should appear in the 
bottom left corner of the screen. Check 
all commands to make certain every- 
thing works. The 'ESC key will not ap- 
pear to do anything at this time because 
the windows are both set to cover the 
same area. 

Assuming all commands work, you 
are now faced with the problem of tap- 
ing the program. Die-hard BASIC 
hackers will want to convert the Cur- 
sor Control to DATA statements. This 
can be done with one of the programs 
designed for that purpose. After your 
BASIC program has POKEd the Cursor 
Control into memory, have it POKE 
l,197:POKE 2,31. A 'BREAK W will 
bring the Cursor Control to life. I prefer 
the machine language load method 
because the Cursor Control can be 
loaded even if a BASIC program is 
already in memory. Use a routine such 
as Hoyt's hex dump {Best of MICRO, 
vol. 2, p. 184) to save the Cursor Con- 
trol in OSI format. After loading the 
Cursor Control (if you've used Hoyt's 
program) change lcoation to $4C, 
location 1 to $C5, location 2 to $1F. 
Now hit 'BREAK W to initialize, and 
you're in business. 
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The Cursor Control could be put in 
an EPROM. OSI's 2K monitor ROM 
uses only three pages, $FD00-FFFF, 
plus a short routine at $FCB1 to sup- 
port the C1P. The remainder contains a 
floppy bootstrap and routines for other 
models of computers. With a 2716 
EPROM, you would have over IK for 
your own routines. 

There is provision in both input and 
output routines (PATCH , PATCH 2) 
for JMP XXXX instructions. You can 
add extra features to the Cursor Con- 
trol by JMPing to your code, executing 
it, and then JMPing back into the Cur- 
sor Control. Stack initialization in the 
SETUP routine solves a small but an- 
noying problem of warm start. Now 
you can do a PEEK or POKE without 
getting an error message the first time. 
The time delay for the video routine 
controlled by location $206 is not in- 
cluded in the Cursor Control. If you 
have room in RAM, a short BASIC pro- 
gram could be written to allow easier 
manipulation of the windows. 



1FDD A9AS 


LDA 


I0UTPUT 




1FDF 8D1A02 


STA 


$21A 




1FE2 A91E 


LDA 


/OUTPUT 


; OUTPUT VECTOR 


1FE4 8D1B02 


STA 


$21B 




1FE7 A910 


LDA 


#OK 


;'OK' MESSAGE 


1FE9 8504 


STA 


$04 


; VECTOR 


1FEB A91F 


LDA 


/OK 




1FED 8505 


STA 


$05 




1FEF A2FE 


LDX 


#$FE 


;SET STACK POINTER 


1FF1 9A 


TXS 






1FF2 4C74A2 


JMP 


$A274 


;WARM START 


1FF5 85D3 


TABLE ADR 


$D385 




1FF7 80DO 


ADR 


SD080 




1FF9 80D3 


ADR 


$D380 




1FFB 80D0 


ADR 


$D080 




1FFD 80D3 


ADR 


$D380 





I don't have access to a C2P, so I 
can't be specific, but with a few 
changes the Cursor Control could run 
on a C2P. A disk system could use the 
Cursor Control if zero page location 
$E0-E9 were changed to addresses not 
used by disk BASIC. Also, location $0E 
in the ERASE routine may be used dif- 
ferently in disk BASIC. Finally, the 
Cursor Control is by no means com- 
pleted. I welcome constructive 



criticism or improvements. Please send 
to me at the address given at the begin- 
ning this article. 

Kerry Lourash has owned a Superboard n 
for a year. He is interested in both 
hardware and software. Deciphering 
BASIC-in-ROM and designing utilities are 
his current obsessions. He is a board 
member of the Macon County Computer 
Club. 

JMCftO 



OHIO SCIENTIFIC 

S-FORTH — a full implemen- 
tation of Fig-FORTH including 
editor, virtual disk sub-sys- 
tem, and compatibility with 
OS65D-3 on 5 1 /4" or 8" disk. 
$34.95. 

Source listing $24.95. 

Both for $49.95. 

TOUCH TYPING MADE EASY 

— 15 lesson set teaches you 
to "touch type". Now also 
available for the C1P. 8K. 
$19.95. 

TITANIC QUEST — a real time 
search where you risk your re- 
maining supplies to find the 
Titanic. 8K. $6.95. 

TEXT EDITOR - the best 
screen text editor available for 
OSI C4P, C8P disk systems. 
$19.95. 

Send for our FREE 14 page 
software and hardware cata- 
log. Includes photos and com- 
plete descriptions of all game, 
utility, and business software. 

Aurora Software Associates 

3 P.O. Box 99553 
Cleveland, Ohio 44199! 
^ (216)221-6981 



(Classified — continued from page 54) 

TURNKEY MEDICAL BILLING SYSTEM 

Interactive data entry. Automated file 
management. Outputs: Patient state- 
ments, Universal Claim Forms, financial 
reports. Customized by user-developed 
text files. Requires Apple, Applesoft, 
printer. One disk drive manages 150 
accounts; 2 drives — 400 accounts. $350 
for programs and 25 pp documentation. 

Jerome B. Blumenthal, M.D. 

7500 E. Hellman 

Rosemead, CA 91770 



OSI Accounting System 

Small business double entry accounting 
system based on MDMS structure prints 
Income Statement, Trial Balance, Charts 
of Accounts, and others. System is con- 
figurable by user and requires only 65D 
and MDMS capability plus minimum of 
8K workspace. Program and data disks 
plus user guide $100.00. Listings sold 
separately for $20.00 each module. 

VIDEO VENTURES SOFTWARE 

1708 Beechwood 

Fullerton, CA 92635 



Hockey for the Apple II 

A two-player game using Integer BASIC 
and two machine language routines for 
smooth graphics. On cassette, $9.99. 

Arlan Henderson 

Rt. 2, Box 46 

Saltville, Virginia 24370 



STORMGATE: C1P Adventure Series 
in8K 

THAX— Wield mans' science, weapons 
and mental forces in an ongoing space 
quest through a million locations of 
THAX. MINERVA - Your spacecraft is 
disabled on a barren world. Use your wits 
and a robot to survive. Cassette, $6.50 
each. 

STORMGATE SOFTWARE 

SYSTEMS 

P.O. Box 801 

Kirksville, Missouri 63501 



These low cost ads are actually sub- 
sidized in part by MICRO allowing you 
the perfect place to announce special 
club events, unusual promotions, or 
even want-ads. 

Each classified ad costs only $10.00 
per insertion, pre-paid with type- 
written copy. Please limit these entries 
to less than 40 words. (Title line, name 
and address not considered in count.) 
Ads should be received before the 20th 
of the month preceding the month of 
publication, i.e. May 20th for the July 
issue. 

If you have any further questions, 
please call (617)256-5512. 
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Protecting Memory 
from DOS 



V 



A technique is described to 
create a "Funny DOS" which 
automatically protects an area 
of RAM above DOS. Examples 
are given of the many uses for 
this protected RAM. 



Glenn R. Sogge 

Fantasy Research & Development 

P.O. Box 203 

Evanston, IL 60204 



As most users of the Apple DOS are 
probably aware, versions 3.2 and 3.2.1 
come in two different flavors— 
memory-size independent (a "master") 
and memory-size dependent (a "slave"). 
A slave disk is created with the "INIT" 
command and produces a disk that will 
always load the DOS into a specific 
region of memory. This region is defin- 
ed by where DOS is sitting when the 
"INIT" command is given. Generally, 
this region is at the top of available 
RAM in the machine. 



When a master disk is booted on the 
machine, the DOS gets loaded 
underneath address $4000 |16K) and 
some relocation code gets loaded under 
the DOS. This relocation routine finds 
the top of RAM and moves the DOS to 
sit right underneath it. On a 16K 
machine DOS stays where it is, on a 
32K machine it moves to under $8000, 
and on a 48K machine it moves to 
under $C000. The DOS then loads and 
runs the HELLO program. 

As you can see, a master disk clob- 
bers a lot of memory, and once it is 
booted, all memory below the DOS is 
available for use. The user can protect 
memory from BASIC by setting 



HIMEM and LOMEM, but that can be 
inconvenient and easy to forget. It 
would be much nicer if DOS could do it 
for us automatically. Well, there is a 
way to do it quite simply. 



If you take a look at the relocation 
code that a master disk loads in at 
$1B00, you will see that the routine 
starting at $1B03 is a memory sizer. It 
starts in the highest possible page of 
RAM ($BF) and works its way down 
until RAM is found. This page is the 
highest page that the DOS can then 
occupy. After finding this high page of 
RAM, the code relocates the DOS to sit 
from there down. As far as DOS is 
concerned, then, there is no usable 
RAM memory above itself. 

If we trick the relocater into starting 
its search for room somewhere else, we 
can have some free memory that we 
(and our programs) know about but 
DOS doesn't. We will have essentially 
protected some memory from en- 
croachment. Fortunately, it only re- 
quires changing one byte to accomplish 
our task. (Thank heavens for simply 
structured code.) The byte to change is 
the "$BF" at $1B04. If we change it to 
"$BE", we'll protect one page of RAM. 
If we change it to "$9F", we'll have 
free use of the RAM from $A000 to 
$BFFF— 8K of space. (All the examples 
assume that you have a 48K machine,- 
the principles are the same for any 
memory size.) 

The way to accomplish this is to 
change the byte on the master disk. 
The byte is at track 0, sector A, byte 
$04. With the disk modified, whenever 
it boots it will start its search for RAM 
with whatever page number you have 
given it. You now have a relocating 
DOS that you have some control over. 
But since it is a master, it still crashes 



large portions of lower memory. This 
presents no problem. With your 'funny 
DOS' running, just initialize a new 
disk. Now you have a 'funny DOS' that 
boots right into the memory range you 
picked for it, and only crashes pages 
$3,$8, and $9 (the boot code and 'nib- 
ble buffers'). Anything above the DOS 
location is still there. 



You may have a problem if some of 
your code depends upon DOS being at 
particular locations rather than utiliz- 
ing the jump vectors in page 3 or the 
HI- and LOMEM pointers in page 0. 
Also, it would probably be a good idea 
to have your HELLO program print out 
something like "40K DOS MASTER" 
or "44K DOS SLAVE" to remind 
yourself of what is happening. 



Why Would You Want to Do This? 

This section of 'protected memory' 
is an ideal place to put printer and 
peripheral drivers, machine language 
sorting routines, utility programs, 
debug packages and the like. It can also 
be used as a scratchpad memory area 
that won't get in the way of other con- 
flicting uses. While running in BASIC, 
for example, it's not always very easy 
to determine where the program and 
variable spaces are, but with a section 
of memory that BASIC doesn't know 
about, you can be sure that your data 
won't get clobbered. 

The memory area becomes a 
'systems memory area' with you, the 
programmer, as the systems manager 
—not DOS, not BASIC. Your HELLO 
program could load a batch of utilities 
so they would always be there and 
always be in the same place for use by 
many different programs— kind of a 
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'writeable ROM' like the language card 
system, but with only software, not 
hardware protection. 



What Does 

'DOESN'T KNOW ABOUT' 

Mean? 

BASIC and DOS don't know about 
your hidden memory because it is out- 
side of their HI- and LOMEM limits. 
Therefore, any functions which use 
those limits, like loading programs, 
allocating buffers, creating variables in 
a program, etc., will not even look to 
your locations. You can, of course, tell 
them to if you like. Commands like 
"BLOAD DEBUG, A$BF00" will still 
work like they always have because 
you are supplying DOS with the 
parameters. 

Data and programs can be loaded 
into, and saved from your protected 
area without any problem. When you 
give a DOS command with an address, 
it blindly does what you tell it to, since 
it assumes that you know best. Thus, 
you can BLOAD a program to ROM if 
you want. This kind of relinquishment 
of parameter checking is what allows 
us to create and use the hidden 
memory. Since the BSAVE, BLOAD, 
and BRUN routines all use the address 
information stored when the file is sav- 
ed, DOS just assumes that it is right 
and goes ahead with the command, 
without checking it against what it (in- 
correctly) knows about the machine's 
memory. In short, just use the memory 
area like you would any other area, 
DOS doesn't care. 



Updating 'Funny DOS' Disks 

Your modified DOS disks will work 
just fine with the Update 3.2 and 3.2.1 
programs. The Update program has to 
be run with a master disk in the drive 
because the first thing it does is load a 
copy of the DOS image with the reloca- 
tion code into memory. If the DOS 
image it loads is a normal, 48K 
relocating DOS, the disk will be up- 
dated to a normal master disk. If, 
however, the Update program is loaded 
and you then insert a 'funny DOS' 
master and then run the Update pro- 
gram, it will create a 'funny DOS' 
master. Only the DOS image on the 
disk is modified, so all your files will 
still be the same. 



If you have updated a disk to a 'fun- 
ny DOS' master, it will once again 
clobber lots of memory when booting, 
but it will not crash the area above the 
memory limit you set. 



An Application Suggestion 

Both BASICs, and usually any large 
assembly language program, eat up a 
huge portion of page zero memory. Par- 
ticularly with Applesoft, you might 
want to use a good portion of that same 
area for some machine language 
utilities to sort strings or to utilize the 
Sweet- 16 interpreter. (Relocating 
Sweet- 16 to run from RAM in your pro- 
tected memory area would make it 
easily usable from both BASICs or 
assembly language.) Rather than try to 
figure out which locations have to be 
saved and which can. be used freely, 
why not use a brute force approach? 

Upon entering your utility, the first 
thing that is done is to save all of page 
zero in some nice, safe place— like 
above DOS in a hidden memory area. 
Now your routine can use any or all of 
page zero as it likes. When the routine 
is done, it restores the old page zero and 
returns to the calling routine. 



ZTOBF PHP 

PHA 

TXA 

PHA ; SAVE THE REGISTERS 

TYA 

PHA 

LDX #$00 
ZTB2 LDA $00,X 

STA $BF00,X ; SAVE PAGE ZERO 

INX ; AT $BF00-BFFF 

BNE ZTB2 



(YOUR PROCESSING HAPPENS 
HERE) 



BFTOZ LDX #$00 
BFZ2 LDA $BF0O,X 

STA $00,X ; RESTORE PAGE 
ZERO 

INX 

BNEBFZ2 

PLA 

TAY 

PLA 



TAX ; RESTORE THE 

REGISTERS 
PLA 
PLP 
RTS 



Although this type of routine is not 
the most efficient (all of page zero 
might not need to be saved), it does 
have the programming advantage of 
simplicity. If you don't have to 
remember which locations to be careful 
with, you can get on with the process of 
writing the code to get the job done. As 
the length and complexity of your 
processing routine grows, so, probably, 
will your need for page zero locations. 
The above routines solve the problem 
in one fell swoop. In addition, the time 
spent in the transfer loops as a percent- 
age of the processing time will decrease 
as the routine grows in complexity. 
The programming ease will greatly 
outweigh the almost negligible time 
spent saving and restoring the page. 
This is particularly true if the routine is 
related to operator I/O. 

By saving the registers, in addition 
to the page zero locations, the proces- 
sing routine becomes completely 
transparent to the calling routine. 
BASIC (or a machine language main- 
line) can call an extremely complex and 
powerful routine and not have to know 
a thing about what it does or how it 
does it. All the 'variables' (locations) 
your routine uses are completely local 
to your routine with no global side 
effects. (Your routine could alter loca- 
tions in the saved page to pass back 
values, though.) 

An extension of the procedure 
would be to swap copies of page zero 
rather than just saving the 'main' copy. 
This allows your routines to have their 
own page zero that is not altered by the 
calling program. Passing values back 
and forth gets a little bit tricky then; 
you might want to dedicate the upper 
half of page zero to 'private use' and 
pass values in the lower locations. 
(This means only saving or swapping 
half of the page which will also speed 
up the routines.) Another extension, of 
course, of this concept is to save the 
stack page, too. With an interrupt- 
driven scheduler and multiple-save 
areas, time sharing and multi-tasking 
are just around the proverbial corner. 

JMCftO 
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FOR 
APPLE 
COMPUTERS 



DOUBLE DOS Plus 



WHY IS DOUBLE DOS PLUS BETTER 




$39 



MITE: tmi 11 i rffiittri* trtfMvt ** WKX HHTn «., tVOTM, tali+WMi. 
'D0U3LE DOS PLUS REQUIRES APPLE DOS POMS 



MICRO- WARE 

DISTRIBUTING INC. 

P O. Bon 1 13 

Pwnpton PttHii, n.j. 07444 

201-839-3478 

MALER INQUIRES INVITO] 1 ! 



1) Nothing needs to be soldered, just 
plug and go. 

2) Since all four ROMS are used, all 
software will work even early 3.1 DOS. 

3) Because the ROMS fit on the back of 
the board, it has the thinnest 

configuration allowing full use of slot 
#7. 

4) One set of HOBS is powered op at 
time thereby saving power. 




n ^B32SBS)B| 



'^pK^^f^^ 
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5) Full 90 day warranty 

FMM 
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DOUBLE DOS PLUS - A piggyback board that plugs into the disk controller card so 
that you can switch select between DOS 3.2 and DOS 3.3. Works with the language 
system eliminating the need in many cases to boot the Basics disk. Also 
eliminates the chore of converting all of your 3-2 disks to 3-3- 
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THE SAGA CONTINUES . 

IV TAWfllfi'S LAST R6DOU8T 

The cruel Emperor Tawala has been forced from 
his throne on the world of Galactica and has fled 
for his life to the planet of Farside, where he and 
a small bank of adherents prepare to make their 
last stand. Extreme solar conditions have 
isolated Farside from the rest of the galaxy, and 
so it remains to Benthi, leader of the local insur- 
rectionists, to press the final assault on Tawala 
and his minions. 

TAWALA'S LAST REDOUBT puts you in the 
position of rebel leader. You must intercept and 
decipher Tawala's secret messages to his sup- 
porters, form alliances with local chiefs, detect 
Tawala's spies in your midst, separate hard intel- 
ligence from enemy disinformation, avoid Ta- 
wala's military forays against you and, finally, 
lead the assault against the Prince's stronghold. 

Minimum Configuration: 
TRS-80 Cassette, 16K, Level II, $19.95 
TRS-80 Disk, 32K, $24.95 
APPLE Disk, 48K with APPLESOFT, $29.95 
'Apple, Apple II Plus and Applesoft are trademarks of Appl( 



SflR&WN 



Apple Galaxian — In brilliantly colored array, the 
Galaxians swoop down from all sides in 
dazzlingly swift attacks to do battle upon the 
lone defender. This faithful rendition of that most 
popular of all bar games may drive you around 
the bend, but think of all the quarters you'll be 
saving! Apple II Integer or Plus, 48K disk, $24.95. 



How to order: Ask your dealer or send check or 
money order for the exact retail price to: 

Brtfderbund Software 

Box 3266, €ugene, Oregon 97403 
Call (503) 343-9024 to order. NO CHARGE 
FOR SHIPPING AND HANDLING! 
Visa and Mastercard accepted. 

We've got moral Send for our free catalogl 

; Computer Co. TRS-80 is a trademark of Radio Shack.' 




Fast, inherently structured, 
programming system ready tor 
your APPLE II or II + (24K). 

Extensive, professional, 100 page 
bound documentation. Cleanly 
interfaced to DOS 3.2 or 3.3. Files 
are completely compatible with 
DOS a BASIC. 

. Control C break and continue 
for reasonable debugging. 

« Built-in, convenient editor. 

• FORTH structured assembler. 

• The best blend of FORTH and 
the APPLE'S capabilities. 

• Supports games, music, I/O, 
graphics, disk, tape. 

• Supplied on APPLE diskette. 

• Excellent for applications or 
systems programming. 

. After two years, still $49.95 
Calif, residents add $3.00 
sales tax 

From your dealer or direct from: 
SOFTAPE. Dept. f. 
10432 Burbank Blvd. 
North Hollywood, CA 91601 
or Call: 1-213-985-5763 

FOG-279 $49.95 

Master Charge/Visa Accepted. 

Appte is a registered tiademart< 

Of APPLE COMPUTER. INC. 
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Usei Defined Routines 
in UCSD Pascal 

The UCSD Pascal system has several features 
which allow a user to create a collection of pro- 
cedures and functions to be used as subroutines 
by other host Pascal programs. Such routines can 
be written using Pascal itself or using the 6502 
assembler provided with the UCSD system. These 
capabilities will be illustrated in two parts. Pascal 
subroutines are discussed in part one, which con- 
stitutes the remainder of this note. Assembler 
routines are discussed in part two, which will 
appear next month. It is assumed that the reader 
is familiar with the UCSD Pascal system, especially 
the use of the Editor, to create and store program 
files. 

Part One — Pascal Subroutines 

A. DRAWCHAR — A Simple Example of a Pascal 
Routine 

The C4P and C8P series of Ohio Scientific 
computers use a memory mapped video system 
which supports a character set of 256 graphics 
characters. The C4P and C8P users' manuals in- 
clude tables listing the numeric equivalent for 
each of the graphics characters. The following 
Pascal procedure displays the graphics character 
corresponding to a given CHARNUM at the screen 
location with coordinates (XCOOR.YCOOR) 
relative to the upper left-hand corner of the screen. 
(Note: Although the display screen on these 
systems is nominally 32 rows x 64 columns, the 
Pascal system allows the user to adjust the 
borders to accommodate minor variations be- 
tween individual monitors.) 

PROCEDURE DRAWCHAR 
(CHARNUM.XCOOR.YCOOR: INTEGER); 

BEGIN 



GOTO XY(XCOOR.YCOOR); 
WRITE (CHR(CHARNUM)) 



END; 



This procedure uses the built-in UCSD Pascal 
routine GOTOXY to move the cursor to the desired 
location and then uses the Pascal WRITE routine 
to display the desired character on the screen. 

The preceding version of the procedure 
DRAWCHAR does not yield the desired results for 
CHARNUM values less than 32, since many of the 
corresponding characters are assigned special 
meanings by the UCSD Pascal input/output 
system. Part two will include an alternate version 
of DRAWCHAR, which uses a POKE procedure 
written in assembler to store the value CHARNUM 
in the memory location corresponding to the 
screen position (XCOOR,YCOOR). This alternate 
version of DRAWCHAR works for all values of 
CHARNUM and is considerably faster. 



Since the DRAWCHAR routine is reasonably 
short, it would be relatively easy to type the above 
declaration in as part of any host program in 
which it is needed. The purpose of this note is to 
present several more sophisticated ways provided 
by the UCSD Pascal system of accomplishing the 
same thing. 

Before proceeding, use the Editor to enter the 
above procedure as a new workfile and write it 
out Into a disk file named DRAWCHAR.TEXT. 
Although it is not necessary to store the pro- 
cedure in a file of the same name, doing so 
makes it easy to remember where it is stored. In 
the following section, two methods of including 
this procedure as part of a host program are 
illustrated. 



B. Including DRAWCHAR in a Host Pascal 
Program 

The following Pascal program displays a 
subset of the 256 graphics character set on the 
screen, using the procedure DRAWCHAR. Use the 
Editor to enter this program exactly as it is shown. 

PROGRAM CHARSET; 

VAR XCOOR.YCOOR.CHARNUM: INTEGER; 

BEGIN 

XCOOR: = 5; 
YCOOR:=3; 
CHARNUM: = 32; 
REPEAT 
REPEAT 

DRAWCHAR(CHARNUM,XCOOR,YCOOR); 
XCOOR: = XCOOR + 2; 
CHARNUM: =CHARNUM + 1 
UNTIL XCOOR = 53; 
XCOOR: = 5; 
YCOOR: = YCO0R + 2 
UNTIL YCOOR = 21 

END. 

This program will not compile correctly in its 
current form since there is no declaration for the 
procedure DRAWCHAR. The following two sub- 
sections illustrate two methods of correcting this 
problem. 

1. The C(opy Option of the Editor 

The C(opy option of the Editor can be used 
to physically copy the contents of a file into the 
workfile at the current location of the cursor. The 
following series of steps will copy the procedure 
DRAWCHAR into the above program. 

a) Move the cursor to the beginning of the 
row immediately above the BEGIN state- 
ment in the preceding program. 

b) Depress "C" to select the C(opy option 
of the Editor. 



Q 



CALL 1-800-321-6850 TOLL FREE 
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c) Answer the "Copy: B(uffer F(rom file 
< esc> " prompt by depressing "F". 

d) Answer the " Copy: From what file 
[marker.marker]?" by entering the file 
name DRAWCHAR.TEXT. 

These steps physically copy the declaration 
for the procedure DRAWCHAR into the program 
CHARSET. With this addition the program 
CHARSET can be compiled and run. 

2. The $INCLUDE Compiler Directive 

The compiler directive (*$l DRAWCHAR. 
TEXT*) can be placed on the line above the BEGIN 
in the program CHARSET instead of physically 
inserting the text of the procedure DRAWCHAR. 
This directive instructs the compiler to Include the 
contents of DRAWCHAR.TEXT when the program 
is compiled. 

3. General Comments 

Regardless of which of the two approaches 
given above is used, the results are essentially the 
same. The contents of the file DRAWCHAR.TEXT 
are compiled as part of the CODE file for the pro- 
gram CHARSET. The SINCLUDE compiler directive 
usually requires more memory at compile time 
than if the text is usually copied into the workfile. 
Consequently, on systems with 48K bytes of 
memory the $INCLUDE directive may not be 
appropriate for larger programs. 

Each of the above approaches requires 
DRAWCHAR to be compiled each time it is used. 
The following section shows how to place a 
compiled version of the routine in the SYSTEM. 
LIBRARY. 



character stored at any location on the screen. As 
illustrated by this example there are two sections 
in a unit. The first is an INTERFACE section 
which, in this case, declares the two procedures 
defined in this unit by giving their names and 
describing their parameters. These declarations 
are automatically provided to any host program 
which uses this unit. This allows the compiler to 
perform type checking for each invocation of the 
routines DRAWCHAR and ERASCHAR by the host 
program. The second section is the IMPLEMENTA- 
TION section which includes the actual programs 
defining DRAWCHAR and ERASCHAR. 

UNITMYPLOT1; 

INTERFACE 
PROCEDURE DRAWCHAR(CHARNUM,XCOOR,YCOOR: 

INTEGER); 
PROCEDURE ERASCHAR(XCOOR,YCOOR: INTEGER); 

IMPLEMENTATION 
PROCEDURE DRAWCHAR; ('PARAMETERS 
DECLARED ABOVE*) 
BEGIN 

GOTOXY(XCOOR,YCOOR); 
WRITE(CHR(CHARNUM)) 
END; 

PROCEDURE ERASCHAR; ('PARAMETERS 
DECLARED ABOVE*) 
BEGIN 

DRAWCHAR(32,XCOOR,YCOOR) (* CHR(32) = 
BLANK*) 
END; 

END. (*END OF UNIT*) 

Before proceeding, use the Editor to enter this 
unit as a new workfile and write it into a file named 
MYPLOT1.TEXT. The next section describes the 
steps necessary to place this unit in the system 
library. 



'iiiJ 



C. Adding DRAWCHAR to the SYSTEM.LIBRARY 

The UCSD Pascal system allows the user to 
group a collection of related functions and pro- 
cedures together as a unit. Units are discussed in 
chapter 9 of the Beginner's Guide to the UCSD 
Pascal System and in section 3.3 of the UCSD 
Pascal User's Manual. The major difference be- 
tween using a unit and using a $INCLUDE com- 
piler directive is that a unit can be separately 
compiled and placed in the system library. The 
compiled routines in the unit are then auto- 
matically linked whenever a host program which 
uses them is run. 

1. MYPLOT1 — A UNIT containing two proce- 
dures DRAWCHAR and ERASCHAR 

The following is a very simple example of a 
unit containing two procedures. The first is the 
procedure DRAWCHAR introduced in section A. 
The other is a related procedure which erases the 



2. Adding, MYPLOT1 to the SYSTEM.LIBRARY 

The MYPLOT1 unit must be compiled before 
it can be added to the system library. Units are 
compiled in the same manner as standard Pascal 
programs. Leave the Editor and enter the C(ompile 
command. Answer each of the prompts ("Compile 
what text?" and "To what codefile?") by entering 
the file name MYPLOT1. The compiler will place 
the object version of the MYPLOT1 unit in the file 
named MYPLOT1.CODE. 

The LIBRARY.CODE utility program supplied 
with the UCSD Pascal system is used to modify 
the system library. The use of this utility is 
described in detail in section 4.1 of (2). The follow- 
ing steps create a file named NEW.LIBRARY 
which includes all of the old SYSTEM.LIBRARY 
together with the MYPLOT1 unit. Before pro- 
ceeding, use the FILER to verify that both the files 
SYSTEM.LIBRARY and MYPLOT1.CODE are 
present on the disk in disk drive #4 (the top disk 
drive) and return to the system prompt line. 



OHIO SCIENTIFIC 1333 S. Chillicothe Road • Aurora, Ohio 44402 • (216) 831-5600 
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a) Execute the program LIBRARY.CODE 
by depressing "X" and then typing 
"LIBRARY" or "#5:LIBRARY" if the file 
LIBRARY.CODE is located on the disk in 
disk drive #5 (the lower disk drive) in 
response to the prompt "Execute what 
file?". 

b) Enter the name NEW.LIBRARY as the 
name of the output codefile. 

c) When the response "Link Code File 
- > " is displayed, enter SYSTEM. 
LIBRARY. The following table of all the 
segments currently in SYSTEM.LIBRARY 
will be displayed. 



O-TRANSCEN 1154 4-0 8- 

1-DECOPS 1750 5-0 9- 

2-PASCALIO 1838 6- 10- 

3- 7-0 11- 

and the prompt line 

Segment # to link and < SPACE > N(ew 
file, Q(uit, A(bort will be presented. 



The following sequence of responses links 
each of the segments currently in the SYSTEM. 
LIBRARY into NEW.LIBRARY. 

< SPACE > 

Seg to link into? < SPACE > 

1 < SPACE > 

Seg to link into? 1 < SPACE > 

2 < SPACE > 

Seg to link into? 2 < SPACE > 



As each segment is linked, its name appears in 
a similar table for NEW.LIBRARY. Once the old 
SYSTEM.LIBRARY has been copied into the 
NEW.LIBRARY type "N" for N(ew file and then 
enter the file name MYPLOT1.CODE in response 
to the prompt "Link Code File - > ". The previous 
segment map for SYSTEM.LIBRARY is replaced by 
the following display: 



Once MYPLOT1 has been linked into NEW. 
LIBRARY, the segment map table will appear as 
follows: 



O-TRANSCEN 
1 - DECOPS 
2-PASCALIO 
3-MYPLOT1 



1154 4-0 8-0 

1750 5-0 9-0 

1838 6- 10- 

52 7- 11- 



0- 





4- 





8- 








1- 





5- 





9- 








2- 





6- 





10- 








3- 





7 - MYPLOT1 


52 


11- 









At this point, enter "Q" to terminate the execu- 
tion of the LIBRARY utility. When the "Notice?" 
prompt is displayed depress RETURN and the file 
NEW.LIBRARY will automatically be stored on 
disk. The next section shows how to use the 
MYPLOT 1 unit in a Pascal program. 

3. Using the MYPLOT1 Unit as a Pascal 
Program 

The following Pascal program is a modifica- 
tion of the program CHARSET presented in sec- 
tion B. Use the Editor to enter this program and 
then store it in the system file SYSTEM. WRK.TEXT 
by selecting the U(pdate option when you leave 
the Editor. 

PROGRAM CHARSET; 

USES MYPLOT1; 

VAR XCOOR.YCOOR.CHARNUM: INTEGER; 

BEGIN 

(•DISPLAY CHARACTERS*) 
XCOOR:=5; 
YCOOR: = 3; 
CHARNUM:=32; 
REPEAT 
REPEAT 
DRAWCHAR(CHARNUM,XCOOR,YCOOR); 
XCOOR:=XCOOR + 2; 
CHARNUM: =CHARNUM + 1 
UNTIL XCOOR = 53; 
XCOOR:=5; 
YCOOR: = YCOOR + 2 
UNTIL YCOOR = 21; 

(•ERASE CHARACTERS*) 
XCOOR: = 5; 
YCOOR: = 3; 
REPEAT 

REPEAT 

ERASCHAR(XCOOR,YCOOR); 
YCOOR:=YCOOR + 2 

UNTIL YCOOR = 21; 

YCOOR: = 3; 

XCOOR: = XCOOR + 2 
UNTIL XCOOR = 53 

END. 



The final step in creating NEW.LIBRARY is to 
link the unit MYPLOT1 from segment 7 into seg- 
ment 3 of NEW.LIBRARY by entering 

7 < SPACE > 

Seg to link into? 3 < SPACE > 



The second line in this program notifies the 
compiler that this program uses the unit 
MYPLOT1, which has been placed in the system 
library. This program uses DRAWCHAR to display 
several lines of graphics characters and then uses 
ERASCHAR to erase them one at a time. 



ie 



CALL 1-800-321-6850 TOLL FREE 



86 



MICRO - The 6502 Journal 



No. 36 -May 1981 



SMALL SYSTEMS JOURNAL 



Advertisement 



*'?»* 



Before this program can be compiled and run it 
is necessary to designate the file NEW.LIBRARY 
which contains the unit MYPLOT1 as the SYSTEM. 
LIBRARY. Enter the FILER and use the C(hange 
option to first change the name of SYSTEM. 
LIBRARY to OLD.LIBRARY, and then change the 
name of NEW.LIBRARY to SYSTEM.LIBRARY. 

To run this program depress "R". The follow- 
ing sequence of events is automatically initiated. 

a) The contents of SYSTEM.WRK.TEXT are 
compiled and placed in SYSTEM.WRK. 
CODE. During the compile, the INTER- 
FACE section of MYPLOT1 is accessed 
to verify the references to DRAWCHAR 
and ERASCHAR. 

b) The LINKER is invoked and the object 
code of procedures referenced in the 
system library (including DRAWCHAR 
and ERASCHAR) is linked into SYSTEM. 
WRK.CODE. 

c) Once the library routines are linked into 
the codefile, the file SYSTEM.WRK. 
CODE is executed. 

Subsequent runs of the program simply ex- 
ecute the resultant SYSTEM.WRK.CODE file skip- 
ping steps a and b. The automatic compile, link 
and execute process can only be used for pro- 
grams stored in the system workfile. If the pro- 
gram CHARSET is stored in a named file (CHAR- 
SET.TEXT) which is not in the system workfile, 
then separate commands must be given for the 
compilation, the linking and the execution. 

Bibliography 

1. Bowles, Kenneth L., Beginner's Guide to the 
UCSD Pascal System, Peterborough: Byte Books, 
1980. 

2. UCSD Pascal User's Manual, San Diego: 
Softech Microsystems, 1978. 



Universal Modem Program 

Universal Modem Program 

This is a BASIC program which will set up a 
machine code modem routine designed for use 
with a standard modem (with RS-232). The routine 
will operate with the modem ports on the Ohio 
Scientific C1P, C4P, and C8P computers. The 630 
and UTI board modem ports are exceptions to this 
and are not supported by this routine. 

This is basically a dumb terminal routine with 
only two local commands: 



CONTROL-D Toggles the output back and forth 
between full and half duplex mode. 
(Sometimes echoed as a comma.) 

CONTROL-B Returns to BASIC if the routine is 
operating on a cassette system, or 
runs "BEXEC*" if it is operating on 
a disk system, effectively ter- 
minating the call.* 

Shift-0 is still used to output a delete character 
code. Since ROM BASIC doesn't process a 
backspace, the previous character will be omitted 
from the text, but not on the video screen. The 
delete code will be displayed as a graphic 
backspace, a forward space, and another graphic 
backspace on the ROM BASIC computers. 

Note: If this program is to run on a disk system, 
create two buffers using the change utility before 
entering the program. 

*You must physically hang up the phone to 
complete call termination. 



10 REM MODEM PROGRAM 

20' FORI-1T030|PRINT>NEXT|PRINT"MODEM ROUTINE LOADING" 

30' Y-PEEK<2)|Z»PEEK<64774> 

40 IFZ-32THENG0SUB3OO0lGOT060 

SO G0SUB4000 

60 F0ftl-1T032|PRINT|NEXT|PRINT"MDDEM READY- 

70 X-USRIX) 

BO RESTOREl 6OSUBSOO1 IFY-4THENRUN" BEXEC* " 

90 END 

300 PS-1|IFPEEK<9800>-32THENPS"2 

510 IFY<>40RZO32THENF0RI-lT048iREADPi NEXT, RETURN 

320 READP.C (1 ) , C (2) I IFPTHENPOKEP, C (PS) I G0T052O 

530 RETURN 

340 DATA 9730,8,16 

SSO DATA 9743,7,13 

560 DATA 9723,31,63 

370 DATA 9736,31,63 

SSO DATA 9725,4,10 

590 DATA 9738,29,39 

610 DATA 9B00,32,64 

620 DATA 9636,101,73 

630 DATA 9766,101,75 

640. DATA 9770,101,75 

650 DATA 9815,101,75 

670 DATA 9670,125,123 

680 DATA 97B3, 125, 123 

690 DATA 9682,93,164 

990 DATA33296,0,1,0,0,0 

1500 FORI-O+FT0216+FiR£ADX 

1310 IFX— 1THENX-INT (I/2S6) 

1520 POKEI.XiNEXT 

1330 RETURN 

2000 DATA 32,13,37,173,0,240,74,144,6,173,1,240,32,67,35 

2010 DATA 32,93,-1,240,239,201,2,240,22,201,4,240,21,72,32 

2020 DATA 67,35,173,0,240,74,74,144,249,104,141,1,240,76,37 

2O30 DATA -1,76,13,37,173,63,-1,73,12,141,63,-1,208,225,138 

2035 DATA 72,152,72 

2O40 DATA 169, 1,32, 190,252,32, 198,252,209,5, 10, 208, 245, 240, S3 

2030 DATA 74,144,9,42,224,33,208,243,169,27,208,33,32,200,233 

2060 DATA 152,141,19,2,10,10,10,56,237,19,2,141,19,2,168,138 

2070 DATA 74,240,49,136,20O,74,144,252,20B,42,234,lG5,2O7,253,203 

20B0 DATA 21, 2, 20B, 38,206,20,2,240,43, 160,5, 162,200, 202,208,233 

2090 DATA 136,206,248,240,67,201,1,240,33,160,0,201,2,240,54, 160 

2100 DATA 192,201,32.240,48,169,0,141,22,2,141,21,2,169,2,141 

2110 DATA 20,2,209,36,162,150,205,22,2,208,2,162,14,142,20,2 

2120 DATA 141,22,2,169,1,32,190,252,32,207,232,74,144,3,76 

2130 DATA 143,253,208,194,160,32,76,167,253,169,0,76,183,253 

3000 GO5UB500 

3005 IFY-4THENPOKE374,34iP0KE575,66,F-16930:B0TO1300 

30C'9 F-546|G0SUB1500 

3010 P0KE546,44lP0KE392,96 

3020 P0KE359 , 25 1 i P0KE360, 2| POKE576 , 25 1 1 P0KE577 , 2 

3030 POKE763,41>P0KE764, 127«P0KE765,76|P0KE766,45!PPKE767, 191 

3040 POKEl!,34iP0KEt2,2iRETURN 

4000 GOSUB3000 

4010 POKEF+65, 141, P0KEF-+66 , 1 POKEF +67 , 223 

4020 POKEF+68, 174| POKEF+69, Ot POKEF +70, 223 

4030 POKEF+193, 141 ,POKEF+194,O,P0KEF+19S, 223 

4040 POKEF+196, 173tP0KEF+197,0iP0KEF+19B,223 

4050 POKEF+l,68lP0*:EF+2,3B 

4060 POKEF+47,68iPDKEF+48,38 

4070 POKEF+5, 252, POKEF.+ l 1 ,2S2rP0KEF+34, 252: P0KEF+42. 252 

40BO IPY-4THENP0KE63233, 52i P0KE645 12,2 

4090 RETURN 
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Name: AGS-1 Natal Horoscope 

System: Apple n or TRS-80 

Memory: 48K RAM 

Language: For Apple II, Applesoft in 

ROM with DOS 3.2, for 

TRS-80, Disk Basic 2.3 
Hardware: For Apple n, 1 disk drive 

and line printer, for 

TRS-80, 2 disk drives and 

line printer 
Description: A very complete calcula- 
tion program for astrologers. Erects a 
horoscope for any date and time from 
A.D. 1800 to 2000, accurate to one 
minute of arc or better. Printout is in 
spoked wheel form with many extras: 
detailed aspectarian, geocentric and 
heliocentric longitude and latitude, 
right ascension and declination, 
retrogrades, 24-hour distance traveled, 
dignities, and more. Each program has 
two zodiacs and seven house systems 
to choose from, and planet and sign 
glyphs are available for some printers. 
NATAL HOROSCOPE feeds into 16 
other programs for further astrological 
calculations. 
Copies: Must be special-ordered. 

We tailor to your system. 
Price: $125.00 

Author: Robert S. Hand 

Available: AGS Software 

Box 28 

Orleans, MA 02653 



Name: The Arrow 

System: CBM with new ROM's 

2.0 or 4,0 
Memory: 8 - 32K 
Language: Machine Language 
Hardware: Contained in 2716 

EPROM 
Description: Save/Load at 3600 baud 
with your C2N cassette deck. BASIC 
programs, machine code blocks and 
data files plus Verify, Append and F. 
Fwd tape positioning supported. Also 
full 80 x 50 graphics and hex 
calculator. 10 new commands. 
Copies: Just released 

Price: $45 

Author: Milton Bathurst 

Available: DataCap 

73, rue du Village 

B4545 Feueur 

Belgium 



Name: The Demo Disk 

System: Apple II 
Memory: 48K 
Language: Applesoft, Machine 
Hardware: Apple n, Disk II 
Description: Contains a program ex- 
emplifying usage of "Superfront" let- 
ters and utilities from Super Draw and 
Write disk. Also includes "Instant 
Graphics (Sound Option)" from same 
disk. "Conditioning" from our Con- 
ditioning Life Dynamics disk, and 
"Rationality?" from our Aliveness Life 
Dynamic disk, are available, as well as 
the incomparable "Jungle Safari" from 
our Environment Life Dynamic disk. 
You get the best of Avant-Garde Crea- 
tions' programs at an unbelievable 



price. 

Copies: 

Price: 

Author: 
Available: 



Many 

$9.95 includes disk, game 
card/drawing card 
Avant-Garde Creations 
Avant-Garde Creations 
P.O. Box 30161 MCC 
Eugene, Oregon 97403 



Name: Chaos Version 2.1 

System: OSI Superboard II or 

Challenger 1-P 
Memory: 4K RAM or more 
Language: 6502 Machine 
Hardware: Real-time Clock 

[optional) 
Description: CHAOS saves and loads 
BASIC programs up to 2 times faster 
than BASIC, consuming up to 50% less 
tape! Each program may be given a 
unique file name of any length. The 
program is not listed as it is saved or 
loaded. Do you have a real-time clock? 
CHAOS will save the date and time 
along with your program! Now for the 
best part: CHAOS does not use any 
BASIC programming memory! Stop 
waiting for OSI BASIC — order CHAOS 
today (or send an SASE for further 
information] . 
Copies: On demand 

Price: $12.95 includes CHAOS 

cassette and complete 
operating manual. 
Author: Paul Morey 
Available: PROCOM Software 
8 Hampton South 
Southampton, MA 01073 



Name: The Super Bar and Wine 

Guide 

System: Apple II 
Memory: 48K 
Language: Applesoft 
Hardware: Disk 3.2, 3.3 
Description: The new Super Bar and 
Wine Guide is an education in the art of 
selecting and enjoying fine wines. This 
program places at your fingertips the 
combined knowledge of wine experts, 
distributors and months of research, 
the most recent wine prices (1981), as 
well as fifty-four of the most popular 
and well known red, white and special- 
ty wines. Included are a complete 
description of each wine, a Serving Sug- 
gestions category that offers over two- 
hundred combinations of food and 
wine, a Glossary of Terms section of 
the most commonly used words, a 
complete Pronunciation Guide, a sec- 
tion called Wine Tips that gives infor- 
mation about usage of wine; and the 
newest addition is the Computer Wine 
Steward, a program within itself! It lets 
the computer do the selecting from 
over two-hundred 'brand name wines' 
and their most recent prices, from a 
Meal Selection menu of your favorite 
dishes (25 Dinner Selections). And 
finally, a Bartender's Guide tor forty of 
the more popular mixed drinks. 
Price: $24.95 includes yearly 

updates $5.00 
Author: Donald E. Martin 

Available: CINE-AERO 

1821 N. Frederic St. 

Burbank, California 

91505 



Name: Small Business Account 

ing (SBA) 
System: OSI C4P MF 
Language: BASIC under OS65D 
Hardware: Printer, 2 Disks (second 

optional) 
Description: Provides double-entry 
journal system for cash flow analysis 
and reports. Automatic checking of 
distribution account totals at time of 
entry. User-defined fields in data base 
files; up to 99 expense and income 
accounts, 999 vendor/customer 
accounts, with names up to 72 
characters. Six digit (XXXX.xx) 
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capability in base module is expand- 
able. Prints Income Statement, Trial 
Balance, Charts of Accounts and Ven- 
dor/Customer lists. Summary finan- 
cial information totalable by month, 
quarter, and YTD. Sorting is available 
on user specified fields. All records are 
MDMS-compatible and code allows 
user system configuration. 
Price: $100.00 (3rd class mail 

free, 1st class add $2.00). 
Includes: |1) program disk and flj 
data disk with sample 
file. User Manual and Ac- 
counting System Guide 
and sample source 
documents provided. Pro- 
gram listings only are 
available for $20.00 each. 
Author: J.O. Rector 
Available: Video Ventures 

1708 Beechwood Avenue 
Fullerton, California 
92635 

Name: Stand-Alone fig-FORTH 

System: OSI, CI, C2, and C4 

minifloppy 
Memory: 24K 

Hardware: No extra hardware required 
Description: Complete FORTH high- 
level language system— no operating 
system needed. Disk files are OS-65D 
compatible. Strictly adheres to FIG 
standards. Includes disk, display and 
keyboard drivers for OSI. A structured 
6502 macro-assembler and disk 
utilities are also included, plus the FIG 
portable line editor. These can all be in 
memory at once with plenty of room 
for applications. Complete technical 
documentation and a fig-FORTH 
glossary are included. 
Copies: Just released 

Price: $49.95 check or money 

order, volume discounts 

for dealers. 
Author: Michael Butts and Forth 

Interest Group 
Available: FORTH Tools 

Box 12054 

Seattle, WA 98102 



Name: GRAFPAK APPLE 

System: Apple II 
Memory: 32K minimum 
Language: BASIC or 6502 machine 

language 
Hardware: Disk and graphic printer 
Description: GRAFPAK is a family of 
programs for reproducing the Hi-Res 
pages — using grab-the-wire printer 
graphics, lx and 2x scaling are stan- 
dard, and 3x and 5x are available with 
some printers. Normal and inverse ink- 
ing is selectable, and variable indent is 
{ \ provided. Features vary with make and 
"\J model of printer. Packages available for 
IDS-440, 445 and 460, Anadex DP-9xxx 



family, and Epson MX-70 and MX-80 

with graphic PROMs. 

Price: $24.95 ( + $1.65 in Ohio) 

includes diskette and 
user's guide (specify DOS 
release and printer 
model) . 

Author: SmartWare 

Available: SmartWare 

2281 Cobble Stone Court 
Dayton, Ohio 45431 

Name: Journey to Alt. Doom 

System: SYM with BAS-1 or KIM 

8K BASIC at 2000 H. 
Memory: 16K 
Language: BASIC 
Hardware: Terminal using standard 

serial I/O ports on SYM 

or KIM 
Description: An adventure game in 
which you wander through a network 
of caverns in search of the 
Necromancer's gold ring. Once you 
find the ring you must then discover 
the secret way to Mt. Doom where the 
ring is to be destroyed. You'll en- 
counter goblins and other creatures 
along the way and also find treasure. 
You communicate with the computer 
with one and two word commands. 
Copies: Just released 

Price: $10.00 on cassette tape, 

ppd. in U.S. only 
Author: Lee Chapel 
Available: Lee Associates 

2349 Wiggins Ave. 

Springfield, IL 62704 

Name: DISASM (2.0) 

System: Apple n or Apple n Plus 
Language: Machine 
Hardware: Disk 

Description: DISASM serves as an in- 
valuable aid for understanding and 
modifying machine language programs. 
It is a symbolic disassembler which 
generates source code, with labels, 
directly compatible with DOS Toolkit, 
Lisa and S-C assemblers. Default labels 
are catagorized as page zero, external or 
internal. Optional user-defined label 
name table permits substitution of 
more meaningful label assignments. 
Monitor ROM label name table included 
with over 100 standard subroutine and 
memory address names. Equate defini- 
tions generated in ascending order. No 
restriction on disassembled block 
length. Correctly disassembles displaced 
object code, auto source segmentation 
for easier reading, and more! 
Copies: Over 40 

Price: $30.00 (Program diskette 

and user documentation) 
Author: Bob Kovacs 

Available: RAK-WARE 

41 Ralph Road 

West Orange, NJ 07052 



Name: DOS/65 

System: All 65xx 

Memory: minimum of 16K to 24K 

Language: machine 

Hardware: 8" single density, soft 

sect disk 
Description: DOS/ 65 is a flexible disk 
operating system for the 6502 which 
allows the user to configure the system 
for bis environment similar to what 
CP/M allows for the 8080/Z-80. In- 
cluded are a two pass assembler, an 
editor, a debugger, a sysgen routine and 
other utilities. Standard system is con- 
figured only for Tarbell controller but 
full interface instructions are included. 
Copies: New Release 

Price: $100-$ 150 (more for 

custom) 
Author: Richard A. Leary 

Available: Richard A. Leary 

1363 Nathan Hale Drive 

Phoenixville, PA 19460 

Name: Poker 

System: Apple II Plus 

Memory: 48K w/ROM Applesoft 

Language: Applesoft 

Hardware: Disk II 

Description: Tired of playing "Poker" 

games that amount to nothing more 

than Blackjack? This game pits four 

computer opponents against you and 

allows for up to three rounds of betting. 

You can exchange cards, pass, bluff, 

call at anytime, and bet little, big or 

fold — and so can they. A detailed model 

of real poker. 

Copies: Just Released 

Price: $15 

Author: Jeff Brower 

Available: Galaxy Sales, Inc. 

30815 28th Avenue South 
Federal Way, WA 98003 

Name: Disk Directory 

System: Pet 16K/32K + 3040 

Disk Drive 
Memory: Minimum 16K 
Language: BASIC 
Description: Indexes on master 
diskette (drive 0), the directory of 
diskette in drive 1. Enables all direc- 
tories of all diskettes to be kept on one 
master diskette. Options available: for- 
mat diskette; update or create index; 
display single directory or all direc- 
tories indexed. Search option: finds and 
displays which diskette(s) holds a par- 
ticular programme; with auto load 
facility. Summary of all indexes: disk 
ID; name and bytes free; delete entry. 
Price: $25 

Author: D. Milnes 

Available: 13, Delmont Close 

Whitelee Road 

Batley 

West Yorkshire WF178AQ. 

England 
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The Newest In 



Apple Fun 



We've taken five of our most popular programs and 
combined them into one tremendous package full of 
fun and excitement. This disk-based package now of- 
fers you these great games: 

Mimic — How good is your memory? Here's a chance 
to find out! Your Apple will display a sequence of 
figures on a 3 x 3 grid. You must respond with the ex- 
act same sequence, within the time limit. 

There are five different, increasingly difficult ver- 
sions of the game, including one that will keep going 
indefinitely. Mimic is exciting, fast paced and 
challenging— fun for all! 

Air Flight Simulation— Your mission: Take off and 
land your aircraft without crashing. You're flying 
blind — on instruments only. 

A full tank of fuel gives you a maximum range of 
about 50 miles. The computer will constantly display 
updates of your air speed, compass heading and 
altitude. Your most important instrument is the Angle 
of Ascent/Bank Indicator. It tells if the plane is climb- 
ing or descending, whether banking into a right or left 
turn. 

After you've acquired a few hours of flying time, 
you can try flying a course against a map or doing 
aerobatk maneuvers. Get a little more flight time 
under your belt, the sky's the limit. 
Cotormaster — Test your powers of deduction as you 
try to guess the secret color code in this Mastermind- 
type game. There are two levels of difficulty, and three 
options of play to vary your games. Not only can you 
guess the computer's color code, but it will guess 
yours! it can also serve as referee in a game between 
two human opponents. Can you make and break the 
color code. ..? 

Star Ship Attack— Your mission is to protect our or- 
biting food station satellites from destruction by an 
enemy star ship. You must capture, destroy or drive 
off the attacking ship. If you fail, our planet is 
doomed . . . 

Trilogy— This contest has its origins in the simple 
game of tic-tac-toe. The object of the game is to place 
three of your colors, in a row, into the delta-like, mul- 
ti-level display. The rows may be horizontal, vertical, 
diagonal and wrapped around, through the "third di- 
mension". Your Apple will be trying to do the same. 
You can even have your Apple play against itself! 

Minimum system requirements are an Apple II or 
Apple II Plus computer with 32K of memory and one 
minidisk drive. Mimic requires Applesoft in ROM, all 
others run in RAM or ROM Applesoft. 
Order No. 0161AD $19.95 



Solar Energy For The Home 

With the price of fossil fuels rising astronomically, solar space-heating systems are starting to become very 
attractive. But is solar heat cost-effective for you? This program can answer that question. 

Just input this data for your home: location, size, interior details and amount of window space. It will then 
calculate your current heat loss and the amount of gain from any south facing windows. Then, enter the data 
for the contemplated solar heating installation. The program will compute the NET heating gain, the cost of 
conventional fuels vs. solar heat, and the calculated payback period— showing if the investment will save you 
money. 

Solar Energy for the Home: It's a natural for architects, designers, contractors, homeowners. . .anyone 
who wants to tap the limitless energy of our sun. 

Minimum system requirements are an Apple II or Apple II Plus with one disk drive and 28K of RAM 
Includes AppleDOS 3.2. 
Order No. 0235AD (disk-based version) $34.95 



Math Fun 



Paddle Fun 



This new Apple disk package requires a steady eye and a quick hand at the game paddles! It includes: 
Invaders — You must destroy an invading fleet of 55 flying saucers while dodging the carpet of bombs they 
drop. Your bomb shelters will help you— for a while. Our version of a well known arcade game! Requires Ap- 
plesoft in ROM. 

Howitzer— This is a one or two person game in which you must fire upon another howitzer position. This pro- 
gram is written in HIGH-RESOLUTION graphics using different terrain and wind conditions each round to 
make this a demanding game. The difficulty level can be altered to suit the ability of the players. Requires Ap- 
plesoft in ROM. 

Space Wars — This program has three parts: (1) Two flying saucers meet in laser combat — for two players, (2) 
two saucers compete to see which can shoot out the most stars — for two players, and (3) one saucer shoots the 
stars in order to get a higher rank— for one player only. Requires Applesoft. 

Golf— Whether you win or lose, you're bound to have fun on our 18 hole Apple golf course. Choose your 
club and your direction and hope to avoid the sandtraps. Losing too many strokes in the water hazards? You 
can always increase your handicap. Get off the tee and onto the green with Apple Golf. Requires Applesoft. 

The minimum system requirement for this package is an Apple II or Apple II Plus computer with 32K of 
memory and one minidisk drive. 
Order No. 0163AD $19.95 



The Math Fun package uses the techniques of immediate feedback and positive reinforcement so that 
students can improve their math skills while playing these games: 

Hanging— A little man is walking up the steps to the hangman's noose. But YOU can save him by answering 
the decimal math problems posed by the computer. Correct answers will move the man down the steps and 
cheat the hangman. 

Spellbinder— You are a magician battling a computerized wizard. In order to cast death clouds, fireballs and 
other magic spells on him, you must correctly answer problems involving fractions. 
Whole Space— Pilot your space craft to attack the enemy planet. Each time you give a correct answer to the 
whole number problems, you can move your ship or fire. But for every wrong answer, the enemy gets a 
chance to fire at you. 

Car Jump— Make your stunt car jump the ramps. Each correct answer will increase the number of buses your 
car must jump over. These problems involve calculating the areas of different geometric figures. 
Robot Duel — Fire your laser at the computer's robot. If you give the correct answer to problems on calculat- 
ing volumes, your robot can shoot at his opponent. If you give the wrong answer, your shield power will be 
depleted and the computer's robot can shoot at yours. 

Sub Attack — Practice using percentages as you maneuver your sub into the harbor. A correct answer lets you 
move your sub and fire at the enemy fleet. 

All of these programs run in Applesoft BASIC, except Whole Space, which requires Integer BASIC. 
Order No. 0160AO $19.95 



Skybombers — 

Two nations, seperated by The Big Green Moun- 
tain, are in mortal combat! Because of the terrain, 
their's is an aerial war— a war of SKYBOMBERS! 

In this two-player game, you and your opponent 
command opposing fleets of fighter-bombers armed 
with bombs and missiles. Your orders? Fly over the 
mountain and bomb the enemy blockhouse into dust! 

Flying a bombing mission over that innocent look- 
ing mountain is no milk run. The opposition's aircraft 
can fire missiles at you or you may even be destroyed 
by the bombs as they drop. Desperate pilots may even 
ram your plane or plunge into your blockhouse, sui- 
cidally. 

Flight personnel are sometimes forced to parachute 
from badly damaged aircraft. As they float helplessly 
to earth, they become targets for enemy missiles. 

The greater the damage you deal to your enemy, the 
higher your score, which is constantly updated at the 
bottom of the display screen. 

The sounds of battle, from exploding bombs to the 
pathetic screams from wounded parachutists, remind 
each micro-commander of his bounden duty. Press 
On, SKYBOMBERS— Press On! 

Minimum system requirements: An Apple II or Ap- 
ple II Plus, with 32K RAM, one disk drive and game 
paddles. 
Order No. 0271AD (disk-based version) $19.95 
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Apple* Software 



From Instant Software 



Santa Paravia and Fiumaccio 



Buon giorno, signore! 

Welcome to the province of Santa Paravia. 
As your steward, I hope you will enjoy your 
reign here. I feel sure that you will find it, shall 
we say, profitable. 



Perhaps I should acquaint you with our little domain. It is not a 
wealthy area, signore, but riches and glory are possible for one who 
is aware of political realities. These realities include your serfs. They 
constantly request more food from your grain reserves, grain that 
could be sold instead for gold florins. And should your justice 
become a trifle harsh, they will flee to other lands. 

Yet another concern is the weather. If it is good, so is the harvest. 
But the rats may eat much of our surplus and we have had years of 
drought when famine threatened our population. 

Certainly, the administration of a growing city-state will require 
tax revenues. And where better to gather such funds than the local 
marketplaces and mills? You may find it necessary to increase custom duties or tax 
the incomes of the merchants and nobles. Whatever you do, there will be far- 
reaching consequences. . .and, perhaps, an elevation of your noble title. 

Your standing will surely be enhanced by building a new palace or a magnificent 
cattedrale. You will do well to increase your landholdings, if you also equip a few 
units of soldiers. There is, alas, no small need for soldiery here, for the unscrupulous 
Baron Peppone may invade you at any time. 

To measure your progress, the official cartographer will draw you a mappa. From 




it, you can see how much land you hold, how much of it is under the plow and how 
adequate your defenses are. We are unique in that here, the map IS the territory. 
I trust that I have been of help, signore. I look forward to the day when 1 may ad- 
dress you as His Royal Highness, King of Santa Paravia. Buona fortuna or, as you 
say, "Good luck". For the Apple 48K. 
Order No. 0174A $9.95 (cassette version). 
Order No. 0229AD $19.95 (disk version). 



TO SEE YOUR LOCAL INSTANT SOFTWARE DEALER OR USE THE ORDER FORM BELOW 

ORDER 



For Fast 
Service 



W 



V* 



Toll-Free 
1-800-258-5473 



Apple Cassettes 

0018A Golf $7.95 

0O25A Mimic $7.95 

0O4OA Bowling/Trilogy $7.95 

0073A Math Tutor I $7.95 

0079A Oil Tycoon $9.95 

0080A Sahara Warriors $7.95 

0O88A Accounting Assistant $7.95 

0094A Mortgage w/Prepayment Option/ 

Financier $7.95 

O096A Space Wars $7.95 

0098A Math Tutor II $7.95 

0174A Santa Paravia and Fiumaccio $9.95 

0148A Air Flight Simulation $9.95 

We Guarantee It! 



^/© Guarantee ^^ ■ 




OUR PROGRAMS ARE GUARANTEED 
TO BE QUALITY PRODUCTS. IF NOT 
COMPLETELY SATISFIED YOU MAY 
RETURN THE PROGRAM WITHIN 60 
DAYS. A CREDIT OR REPLACEMENT 
WILL BE WILLINGLY GIVEN FOR 
ANY REASON. 
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Name 



Address 
City 



. State . 



-Zlp- 



G Check □ Money Order □ VISA □ AM EX □ Master Charge 

Card No Exp. Date 

Signed Date 



| Order your Instant Software toda 


^ 


Quantity 


Order No. 


Program name 


Unit cost 


Totat cost 
























































Shipping and handling 




$1.00 






^^.v^N% a ^^^Hf*^^r M 1 v^ .^^. 


Total order 





Peterborough, N.R 03458 
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926. Call Apple 3, No. 8 (October, 1980) 

Reynolds, Lee, "Hexadecimal and Binary Number 
Systems," pg. 7-10. 

A tutorial on HEX/DEC and the Apple monitor. 
Weston, David, "Comparing Ten Sort Algorithms," 
pg. 13-19. 

A good demo of various sort methods, with listings for 

the Apple. 
Lee, Scott and Rose, Steve, "Demuffin!", pg. 21. 

Use this DOS 3.3 program to transfer DOS 3.3 pro- 
grams to DOS 3.2 disks. 
Robinson, Alan H., "Apple FORTRAN: First 
Impressions," pg. 23-24. 

A review of FORTRAN for the Apple. 
Manly, Kenneth, "Why Don't You Watch Where You're 
Going?", pg. 25-28. 

A tutorial on the Apple Hi-Res Screen Function, with 

demo listings. 
Anon., "Use FID with DOS 3.2!", pg. 34. 

How to use the handy file handler with DOS 3.2 disks. 
Murdoch, David M., "&CATALOG," pg. 34. 

A short POKE routine to enable the use of the Amper- 
sand to produce the Catalog command on the Apple. 
Capes, Nelson R., "Data Communications with the Elec- 
tronic Systems Card," pg. 37-41. 

An inexpensive way to interface the Apple with a 

modem and download from other systems, with listing 

to implement the system. 
Huelsdonk, Bob, "Making BASIC Behave: Part VI," 
pg. 43-44. 

Some handy Apple utilities and some input hints. 
Kluepfel, Charles, "Applesoft Program Splitter Mods," 
pg. 45-48. 

Some improvements on a previously published Apple 

program. 
Lewellen, Tom K., "A Patch for 80 Column Video Boards 
and Apple Pascal," pg. 51-52. 

Some hints for the Apple Pascal users. 
Reynolds, Lee, "Decimal Packing and Unpacking," 
pg. 55-56. 

A memory saving technique for the Apple. 

Eckert, Paul and Bronstein, Neil, "GOTO A," pg. 56. 

How to use the forbidden variable in a GOTO on the 

Apple. 
Lustig, Henry G., "Line Number Cross Reference for 
Applesoft," pg. 58-59. 

A utility listing for the Apple. 

927. The Cider Press (July, 1980) 

Poindexter, Ed, "Machine Language Mysteries Revealed! 

A BASIC Approach," pg. 6-7. 
A tutorial on the Apple machine language. 

Crossman, Craig, "Fun With Assembly Language," 

Pg. 8-9. 
An interesting article discussing some simple assembly 
language operations on the Apple. 

Uhley, John, "Credit Plus," pg. 10-12. 
A short machine language program to assist program- 
mers in adding credit statements to their listings on the 
Apple. 
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Uhley, John, "DOS with Trace," pg. 12. 

A discussion of how this combination is achieved on 

the Apple. 
Nareff, Max J., "Program Decimal ROM," pg. 13-14. 

A Pascal program to convert decimal numbers to 

Roman Numerals. 
Nareff, Max J., "Addfractns," pg. 14. 

A program in Apple Pascal. 
Rowe, Pete, "The Mysterious Orange Vertical Line," 
pg. 15. 

A discussion of a quirk of Apple Hi-Res. 

Rowe, Pete, "Apple ASCII/BASIC Token and Hi Res 
Address Reference," pg. 16-17. 
Reference information for Apple programmers. 

928. Apple Cookbook 1, No. 4 (November, 1980) 

Weber, Stan, "Getting Fancy with Formats," pg. 1-2. 
A routine providing formatting for Apple programs. 

Anon., "Informer Update," pg. 5-7. 

An update routine for a previously published Apple 

utility. 
Busdiecker, Roy, "The Number Game: An Introduction 
to Computer Arithmetic . ' ' 

A tutorial with a listing to convert decimal numbers to 

binary equivalents. 



929. The Seed 2, No. 11 (November, 1980) 

Anon., "Apple Pi Conventions," pg. 2. 

A listing to assist programmers in writing credit lines 

for programs submitted to newsletters. 
Dulk, G.A., "Use of Apple As A Word Processor" pg. 4-8. 

The Pascal system has many of the desirable features of 

a word processor. 
White, Harry, "DISK, Shape Up!!", pg. 9. 

A listing to permit a quick and dirty examination of 

Apple Hi-Res shape tables. 
Eliason, Andrew H., "The Apple H Hardware," pg. 11-13. 

A tutorial on the Apple n keyboard. 
Duplissey, Claude, "Applesoft Strings," pg. 14. 

A tutorial on Apple strings. 



930. The Cider Press (August/September, 1980) 

Silverman, Ken, "Configuring Your Apple— Don't 
Overload Your Apple n," pg. 6-7. 

A chart of the voltage and current requirements of 

various Apple boards and peripherals. 
Weiglin, Peter C, "Build a Better Error Trap," pg. 8. 

Help the Apple in its quest for valid data. 
Rowe, Pete, "Int and FP Machine Language Interface," 
pg. 12-19. 

A tutorial for the Apple with several listings in machine 

language. 
Wilson, Gene, "Je M'Apple' Pascal," pg. 20-23. 

A tutorial on Apple Pascal with a listing for a disk utility. 
Norris, Paul, "Why Pascal? Why Not?", pg. 24. 

The pro's and con's of Apple Pascal are discussed. 
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931. The Target (September/October, 1980) 

Hollibaugh, Larry, "Touch-Tone Dialer," pg. 2-5. 
Generate touch-tones with the aid of AIM-65 and an 
r~- AY-3-89 10 programmable sound generator using this ar- 

ticle and accompanying hardware and program listing. 

Bresson, Steve, "Offset Load," pg. 6. 
Program for the AIM 65 to load an object program from 
tape at an offset from the save address. 

Buchen, D., "EPROM Programmer," pg. 8-14. 
A programmer for the AIM 65 to program EPROM 's 
2708, 2716, 2516 and 2532. 

932. Microcomputer Index 1, No. 2 (April-June, 1980J 

A subject index covering over 850 microcomputer 
magazine articles, many on 6502-related subjects. 

933. Microcomputer Index 1, No. 3 (July-September, 1980) 

A subject index covering over 1000 microcomputer 
magazine articles, many on 6502-related subjects. 

934. Softalk 1 (November, 1980) 

Stinson, Craig, "The All- American Apple Music 
Machine," pg. 14-21. 

A discussion of the Apple and various systems for 

generating music on the Apple. 
Wagner, Roger, "Assembly Lines," pg. 34-35. 

Everyone's guide to machine language on the Apple, 

part 2. 

935. Stems From Apple 3, Issue 11 (November, 1980) 

Dial, Wm. R., "Mystery Program," pg. 3. 

A short whimsy for the Apple. 
Ward, Dennis, "Dennis Does It Again," pg. 7-9. 

Several short programs for the Apple. 
Hoggatt, Ken, "The Twelve Days of Christmas," 
pg- 9-10. 

Listings for Apple Pascal and for Applesoft BASIC. 
Shelton, Janice and Hoggatt, Ken, "Christmas Gift 
Exchange," pg. 11-12. 

Apple Pascal and Applesoft listings for Apple. 
Anon., "IAC Application Note: Program Transfer," 
pg. 14-20. 

An Apple Pascal routine for sending ana receiving files 

or whole volumes over serial lines. 

936. From The Core (November, 1980) 

Budge, Joe, "Natterings from the Nabob," pg. 2. 

Among other tips a fix for a bus in early issues of DOS 

3.3 for the Apple. 
Andrews, Wilbur C, "PTEXT," pg. 5. 

PTEXT is a text formatting program written in Apple 

Pascal. 
Graham, Johnny, "16 to 13 Sector Hardware Mod," pg. 8. 

A mod that allows switching the disk controller card in 

the Apple Disk system from 13 to 16 sector and vice 

versa. 

937. Sym-Physis Issue 5/6 (September-December, 1980J 

Cole, Stephen E., "Power-On Routine," pg. ?. 

A power-on routine for the SYM-1. 
/ i Campbell, Hugh, "Apple Tape Loader Program," 
'^J pg. 21-22. 

A loader for transferring Apple tapes to the SYM. 



Kwok, Kin-Ping, "A BASIC Word Processing System," 
pg. 41-43. 

Two BASIC programs providing a word processing 

capability on the SYM-1. 
Staff, "How to 'Rewire' the VIA at $A800." 

Two methods applicable to the SYM-1. 
Anon., "Mystery Program," pg. 46-47. 

SYM program for file handling. 

938. Personal Computing 4, No. 12 (December, 1980) 

Schlarb, Keith N., "Required Reading," pg. 68-71. 

Apple program for storing information in the 

classroom. 
Staff, "London's World Micro Chess Champions," 
pg. 79-80. 

Chess programs based on the 6502 take most of the 

honors. 



939. Compute! 2, Issue 7, No. 6 (November/December, 1980) 

McNeil, Arthur L., "Small Computers and Small 
Libraries," pg. 24-29. 

A PET program to print out catalogue cards for the 

library. 
Richter, Mike, "Efficiency with Subroutines," pg. 30-32. 

A tutorial for the PET system. 
Flynn, Brian J., "Computing Correlation Coefficients," 
pg. 36-41. 

Listing and explanation of a listing for 6502 micros. 
Baker, Al, "Al Baker's Programming Hints: Apple," 
pg. 42-43. 

Exploring the Apple paddle and the joystick. 
Kelly, Derek A., "The Anatomy of a Word-Research Pro- 
cessing Program for the Apple," pg. 44-49. 

A model for structured programming. 
Castevens, Philip, "Hard Disks for the Apple." 

Discussion and directory of disk hardware. 
Harris, Neil, "Times Square on your Atari," pg. 56-58. 

A scrolling program for the Atari. 
Lindsay, Len, "Error Reporting System for the Atari," 
pg. 58-59. 

Gives Atari error messages in plain language instead of 

just error numbers. 
White, Jerry, "Monthly Bar Graph Program," pg. 61. 

An Atari BASIC tutorial with bar routine listing. 
Seivert, William D., "Card Games in Graphics Modes 1 
and 2," pg. 62-63. 

Hints for Atari game programmers. 
Bruun, James L., "Using TAB in Atari BASIC," pg. 64. 

Create a TAB function for your Atari. 
Brannon, Charles, "Pokin' Around," pg. 66. 

A tutorial on the Atari POKE function. 
Stewart, Charles, "Coded Data for OSI1P," pg. 70-71. 

A program for OSI computers which hides data state- 
ments in ASCII code. 
Garland, W. Blaine, "OSI Graphics Character Set," 
pg. 71. 

A demo program to show the characters and memory 

location. 

Stanford, Charles L., "Atari Joysticks on the OSI C1P," 

pg. 72-77. 
Interface the Atari joystick to the C1P, hardware and 
software. With a listing for a typical game with 
joystick. 



No. 36 -May 1981 



MICRO -The 6502 Journal 



93 



Butterfield, Jim, "BASIC CBM 8010 Modem Routines," 
pg. 78. 

All about using the PET with a Modem, with listings of 

required software. 

Busdeicker, Roy, "Programmer's Notes for the CBM 
8032," pg. 80-82. 

Discussion and hints for using the CBM 8032 micro. 
Brannon, Charles, "Keyprint," pg. 84-86. 

A routine to enable the PET screen to be dumped to a 

printer at any time. 
Butterfield, Jim, "PET 4.0 ROM Routines," pg." 88-90. 

Addresses of PET ROM routines. 
Butterfield, Jim, "BASIC 4.0 Memory Map," pg. 92-93. 

Useful information for PET users. 
Deal, Elizabeth, "Algebraic Expression Input for the PET, 
Version 2," pg. 94-96. 

Discussion of inputting on the PET with utility 

routine. 

Winter, M.J., "Defining a Function Whilst Running a 
Program," pg. 96. 
A routine for the PET. 

Butterfield, Jim, "Machine Language Addressing 

Modes," pg. 98-100. 

A discussion of 6502 addressing modes, oriented to the 

PET. 

Covitz, Frank, "Visible Memory Printer Dump," 
pg. 104-109. 

Print Dump for the PET/MTU visible memory/ CBM 

2022 printer combination. 
Baker, Robert W., "Disk Lister," pg. 110-114. 

A disk cataloguing program for the PET and 2040 disk. 
Zumchak, Gene, "Nuts and Volts," pg. 116-121. 

Discussion of the 6502/6522 combination for I/O 

functions. 
Dejong, Marvin L., "Interfacing the Am9511 Arithmetic 
Processing Unit," pg. 122-127. 

Use of the Am95 11/6502 combination, with driver 

routines. 
Butterfield, Jim, "Interfacing KIM/SYM/AIM/OSI with 
BASIC," pg. 128-131. 

Discussion of single board monitor systems. 
Herman, Harvey B., "KIM-1 Tidbits," pg. 134-136. 

A program for KIM which makes data statements from 

a machine language program. 
Flynn, Christopher J., "AIM 65 Tape Copy Utility," 
pg. 137-139. 

A short routine to make direct tape copying easy. 

Wells, George, "Combining BASIC and Machine- 
Language Programs on Tape," pg. 140-142. 

A procedure for SYM-1 users to combine BASIC and 

machine language programs in a single cassette tape 

file. 
Bean, Fred D., "Base Converter," pg. 144. 

A PET program for converting decimal numbers to 

numbers with other bases. 

940. The Apple-Dillo (November, 1980) 

Huffman, David, "PLE Notes," pg. 3-4. 
Some new functions possible with special macros 
entered into the Program Line Editor utility. 

Teas, George, "Pascal Primer," pg. 5. 
Discussion of WAIT routine for Pascal users. 

Bartley, David, "Getting There Faster in Applesoft: Part 

n,"pg. 5-7. 

Two machine-language enhancements for the Applesoft 
GOTO interpreter. 



941. KB Microcomputing No. 47 (December, 1980) 

Baker, Robert W., "PET-Pourri," pg. 7-8. 

Discussion of PET ROM changes, character generator 

ROMs, and programming hints. 
Bendix, Peter, "Music Transcriber," pg. 43-63. f" 

Write sheet music instantly on your TV screen using H 

the KIM and a piano-like keyboard. 

Kupke, D., "Super Sound with your Superboard II," 
pg. 130-131. 
A simple and inexpensive modification to unlock the 
OSI Superboard H's secrets of sound generation. 
Urschel, Robert, "The GI Programmable Sound Gener- 
ator," pg. 134-140. 
Use a music/sound effects chip with the Apple, with 
music generation program listing. 
Kelly, Derek A., "Computerized Project Management," 
pg. 142-148. 
A program for the Apple to help plan and schedule com- 
plex projects. 

Mendelsohn, Stephen, "Hard Copy for the OSI Chal- 
lengers," pg. 165-166. 

A simple modification accommodating both hard copy 

and cassette I/O on the Challenger HP. 
Davison, John W., "Apple n Plus Plus," pg. 214. 

Upgrade your Apple to Apple n Plus and more. 
Piper, Neil, "Give Character to your PET Printer," 
pg. 218-220. 

Creating user-defined characters on the Commodore 

2022 and 2023 printers. 

942. BYTE 5, No. 12 (December, 1980) 

Martellaro, John, "SargonE," pg. 114-118. 
An improved Chess-Playing program for the Apple II. 

943. L.A.U.G.H.S. 2, No. 7 (December, 1980) *-..« 

Finn, Mike, "The RWTS Subroutine: Part I." 
A tutorial for the Apple disk system. Includes a 
diagnostic program. 

944. Creative Computing 6, No. 12 (December, 1980) 

Berggren, Stephen R., "Christmas Tree," pg. 124-125. 

Decorate the Christmas Tree with this program for the 

Apple. 
Berggren, Stephen R., "Apple Nuclear Power Plant," 
pg. 128-137. 

Try your skill in running a reactor. 
Raymer, Paul, "Weather Station," pg. 142. 

Bring your Apple in touch with the real world with this 

weather program. 
Blank, George, "Outpost: Atari," pg. 200-201. 

Programming hints' for the Atari microcomputer. 
Carpenter, Chuck, "Apple-Cart," pg. 202-207. 

Discussion of 6502 books, the Galfo/Massimo 

CW-RTTY communications programs, software by 

phone, new Apple boards, etc. 

945. Nibble No. 7 (December, 1980) 

Weinstock, Michael D., "Apple A.I.M.," pg. 9-17. 

Automatic Intelligent Mailing list and label program for 

the Apple. 
Floeter, Alan D., "Apple Concordance," pg. 21-26. 

An Apple Utility to locate variables in a listing. ^ - » ■; 

Reynolds, William, m, "Tough Plus!", pg. 29-31, 43, 53. tyf 

New enhancements and a "Find and Replace." 
Guy, Rudy A., "Low Score H," pg. 33-37. 

A graphics game for the Apple. 
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INTRODUCING 

COGNIVOX Series VIO-1000 

A Revolutionary New 

Voice Input and Output Peripheral 







High Fidelity Voice Response 
Industrial Quality Recognition 

PET - AIM-65 - APPLE H 

COGNIVOX series VIO-1000 is a top-of-the-line voice I/O 
peripheral for business and educational applications and the 
demanding hobbyist. 

It can be trained to recognize words or short phrases drawn 
trom a vocabulary of 32 entries chosen by the user. It will talk 
back with up to 32 words or short phrases. In disk based systems, 
response vocabularies can be stored on the disk and brought to 
memory as needed, giving an effectively unlimited number of 
vocabular y entries. The quality of voice response is excellent, 
and it is far superior to that of speech synthesizers. 

COGNIVOX series 1000 comes complete and ready to plug 
into your computer (the computer must have at least 1 6K of 
RAM). It connects to the parallel I/O port of the PET, to the game 
paddle connector on the Apple and to the J1 port on the AIM-65. 
Connectors are included as required. Also included are a 
microphone, cassette with software and extensive user manual. 
A built-in speaker/amplifier is provided as well as a jack for 
connecting an external speaker or amplifier. 

Software supplied with COGNIVOX includes two voice 
operated, talking video games, VOTH and VOICETRAP. These 
games are absolutely captivating to play, and the only voice 
operated talking games that are commercially available. 

Adding voice I /O to your own programs is very simple. A single 
statement in BASIC is all that is required to say or to recognize a 
word. Complete instructions on how to do it are provided in the 
manual. 

In keeping with the VOICETEK tradition of high performance at 
affordable price, we have priced COGNIVOX series 1 000 at the 
unbelievably low, introductory price of $249 (plus $5 shipping in 
the US, CA add 6% tax. Foreign orders welcome, add 1 0% for 
handling and shipping via AIR MAI L). When ordering, please give 
the make and model of your computer, the amount of RAM and 
whether you have disks or not. 

In addition to COGNIVOX series VIO-1000, VOICETEK 
manufactures a complete line of voice I/O peripherals for most 
of the popular personal computers. Speech recognition-only 
peripherals are available for the 8K PET and the 4K AIM. 

For more information call us at 805-685-1854 or write at the 
address below. 



Dealer Inquiries invited. 

VOICETEK 



DeptE, P.O. Box 388 
Goleta, CA 93116 
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Crossman, Craig, "Apple Tricks," pg. 39. 

A program routine to prevent an inadvertent 'reset' and 

a routine to clear the screen with the ampersand. 
Laird, Alexander, "Fun with the Apple Monitor," pg. 47. 

Discussion of the Apple assembler. 
Reynolds, William, III, "Tracing the Apple DOS 3.2 as it 
Boots," pg. 50. 

Step-by-step description of what happens in booting 

DOS. 
Reynolds, William, m, "Calling the RWTS from BASIC," 
Pg. 50. 

A short discussion of RWTS on the Apple. 
Harvey, Mike, "Watch Out for Graphics Overflow," 
pg. 61. 

Tips for avoiding space problems in graphics programs. 
Laird, Alexander, "Get Controls, CHR$, and Things," 
pg. 61. 

How to implement several useful commands on the 

Apple. 

946. The Harvest 2, No. 4 (December, 1980) 

Schumacher, Kurt G., "Applesoft Variable GOSUB," 
pg. 1-3. 

Hints on implementing the GOSUB command; with 3 

listings for the Apple. 
Russ, John, "Universal Input Function for Fortran," 
pg. 7-8. 

An input program for Apple Fortran. 

Anon, "Ask Mr. Apple," pg. 9 

Some hints on speeding up Applesoft commands. 
Hartley, Tim, "Changing Volume Numbers," pg. 9. 

Change the number on your diskettes with this short 

routine. 
Dial, Wm. R., "Backwards Apple," pg. 10. 

A short program demonstrating a seldom-used 

possibility of the Apple TAB function. 
Anon., "Not Another Hello Program!", pg. 12. 

A Hello program for Apple disks. 



947. Interactive Issue 2 (Summer, 1980) 

Anon., "AIM 65 Graphics," pg. 4-5. 

Two plotting programs, AIMPLOT and AlMGRAPH, 

with listings. 
Butterfield, Jim, "Inside BASIC," pg. 6-8. 

BASIC Token List, Zero Page Usage, BASIC Entry 

Points, for the AIM 65. 
Anon., "AIM 65 Sound," pg. 8. 

Add a speaker to your AIM 65. 
Anon., "Disassembler Utility," pg. 11. 

A utility for the AIM 65 to slow down the display of 

instructions. 
Reo, Frank, "Offset Loader for AIM 65," pg. 13. 

A routine to load object code to a different location. 
Brinkmann, G, "BASIC Banner Program," pg. 15. 

Print out banners with this short routine for the AIM 65. 
Reardon, Mark, "Parity Bit Generator Program," pg. 15. 

A short machine language program to generate odd or 

even parity bits for the AIM ASCII characters. 

948. The G.R.A.P.E. Vine (November, 1980) 



Anon. 
An 



'Hello Program," pg. 9. 



Anon., "Free Disk Space," pg. 4. 
Two short programs for the Apple. 



i., "Hello Program," pg. 9. 

appealing Hello program for the Apple disk. 

949. Interactive Issue 3 (Winter, 1980) 

Sellers, George, "Solving Simultaneous Equations Using 
BASIC," pg. 4-5. 

Use the AIM 65 to solve up to 20 equations and 20 

unknowns. 
Evans, Mel, "Learn to Touch Type," pg. 6-7. 

An AIM 65 program to assist the typing learner. 
Smith, Gordon, "BASIC Time Saver," pg. 8-10. 

An AIM utility combining automatic line numbering 

and common BASIC command automatic typist. 
Dejong, Marvin, "Interrupt Driven Keyboard," pg. 12. 

A listing of a routine that reads the AIM 65 keyboard on 

an interrupt basis. One possible use is in sending Morse 

code. 

Anon., "Super Simple Auto-Start," pg. 15. 

A short utility for the AIM 65. 
Anon., "Temperature Conversion Program," pg. 18. 

A program for the AIM which prints out Fahrenheit/ 

Centigrade conversion tables. 
April, Georges-Emile, "BASIC USR Helper," pg. 18-19. 

Routines to ease the use of USR(X) on the AIM 65. 
Berges, Antonio, "BASIC Recovery Procedure," pg. 20. 

How to recover from an error in hitting the wrong AIM 

key. 

950. Peek(65) 1, No. 11 (November, 1980) 

Loos, James, "Modifying the OSI Video Display," 
pg- 2-8.. 

How to change the OSI C1P from a 24 x 24 display to 

29x48. 
Jones, David A., "Cassette Corner," pg. 12-14. 

Hints for using cassettes with OSI systems. 

951. The Cider Press (November, 1980) 

Anon., "DOM, Disk of the Month, November," pg. 4. 

Several useful utilities, for the Apple. Also a 16 

sector (DOS 3.3) utility disk. 
Weiglin, Peter C, "Formatting: Part Two," pg. 6-7. 

A good tutorial on formatting on the Apple. 
Anon., "Wow! Try These Patches on DOS 3.2," pg. 10. 

New features for the Apple DOS. 
Anon., "Plug in a 6809E," pg. 11. 

The 6809E can execute programs faster than the 6502 

but can co-exist with the 6502 in the new mod. 
Nareff, Max J., "Which DOS is Dat in Dere?", 

Pg- 11- 
A short command to print whether the DOS is in effect 
on your Apple is 3.0, 3.1, 3.2, 3.2.1 or 3.3. 

Pfeifer, Frank J., "Swatting Program Bugs," pg. 12. 
Fixes for bugs in some interesting Apple programs. 

Wilson, Gene, "JeM'apple,' Pascal," pg. 13-21. 
A group of Pascal programs: beginner's notes, using 
your printer, lower case for Pascal, ROM test, master 
catalog, etc. 

952. Apple/Sass 2, No. 9 (December, 1980) 

Espinosa, Chris and Wyman, Paul, "Peeks, Pokes and 
Calls," pg. 6-7. 

A good reference for Apple programmers. 
Burger, Mike and Lynch, Ron, "Scrolling Lo-Res," pg. 9. 

A routine for the Apple graphics. 
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A cost effective 
10 megabyte system 
from the leader 

in Winchester based 
microcomputers. 



Ohio Scientific has put a 
low-cost, high-perform- 
ance 8" non-removable 
hard disk together with its 
popular desk-top micro- 
computer system. This yields 
approximately 10 megabytes of fast 
hard disk capability at a tremendous 
cost/performance benefit over 
floppy based microcomputer 
systems. 




C3-D 

The 10 megabyte system is also 
available with the added advantage of 
triple microprocessors — the 6502A, 
68BOO and Z-80A. This allows you to 
make maximum use of Ohio Scientif ic's 
extensive software library as well as 
programs offered by independent 
suppliers and publishers. $7,600. 



C2-D -^J 

Standard Features 

■ 52K RAM 

■ 8" floppy disk drive for program transport 
and backup. 

■ OS-65U small business operating system. 

■ 9-digit precision BASIC by Microsoft. 

■ Available in OEM quantities at attractive 
discounts. 

For literature and the name of your local dealer, 
CALL 1-800-321-6850 TOLL FREE. 
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1 333 SOUTH CHILLICOTHE ROAD, AURORA, OH 44208 • [21 6] 831 -5600 



